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Good news! 







If you want to get the most out of your Commodore 128 or 64, 
we have goods news for you. The Paperback 128 and 64 Series 
of Software both offer you serious, professional quality 
software packages thaT are easy to use and inexpensive. 

ow easy 

Paperback 128 or 64 Softwore is so easy, you're ready to start 
using it as soon as it's looded into memory- Even if you've 
never been in front of a computer before, you'll be up and 
running in thirty minutes. In foct, you probobly won't ever need 
the reference guide - - - 'help' is availoWe ot the touch of a key. 
That's how easy. 

How serious? 

Paper buck 1j^g ot o4 packages have all the power you're ever 
likely to need. They hove oil of the feotures you'd expect In 
top-of'the-line softwore, and then some. The good news is that 
Poperbock 128 or 64 Software Pockoges are priced way down 
there . . . where you can afford them, 
Fost, powerful, easy to leorn and inexpensive- 
Say, thot is goad newsl 
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All for one a 

Poperbock 128 or 64 Softwore Pockoges offer you something 
else you might not expect , . . integrotion. You con combine the 
output of Poperbock Writer, Paperback Filer and Paperback 
Planner into one piece of work. You can create a finished 
document with grophs, then send individually addressed 
copies. 





The bottom line is Solutions 



The word solutions is our middle name and boffom line. When 
you purchose Paperbock 128 or 64 softcore, you can count on 
it to solve your problems. 
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PaperbcKk Writer 1 28 or 64 
Word Processing 

Whot you see is what you get 

With Paperback Wriler 128 or 64, there's no more guessing 
what text will look like when you print it. Whot yau see is whot 
you get , . . an screen ond in print. There are no foncy codes to 
memorize, no broken words at the end of a line- 
Easy to learn and sophisticated, Paperbock Writer 1?8 or 64 
offers standord word processing features plus . . . 



on-screen formatting and 
wordwrap 

on-screen boldface, 
underlines ond i1<jln:s 

no complicated format 
command? To clutter text 

on-screen help at nil levels 



■ spelling-checker lets you odd 
word? to your dicHonory 

■ 40 or 80 columns on screen 

■ file? compatible with 
PoperClip'" or other word 
processors 



"Voperbock Planner 1 28 or 
Computerized Spreadsheet 

Make fast work of budgeting and 
forecasting 

Paperbock Planner 128 or 64 software lets you make fost work 
of all your bookkeeping chores. Cheque books, household 
accounts, business forecasting ond bookkeeping are just some 
of the [obs thot Paperback Planner 128 or 64 oackoges moke 
easier. You con even create four different kinds of graphs. 

Accurate, sophisticated and easy to use. Poperbock Planner 
128 or 64 offers standord spreadsheet feotures plus - - ^ _ 




• occuracy up to 16 digif^, 
about hvice o5 mony os moEt 

Sreadsheet? for the 
jmmodore 128 or 64 

■ sideways printing auailobie on 
dot molrJK printers, for 
oversized spreadsheels that 
won't fit on stondard paper 

• on-screen help at all levels 

■ compatible with Vi^iCalc'" files 



• 80 column on-screen option 
for the Commodore 64 in 
addition to tile standard 40 
columns 

• graphics include bar. 
Stacked bar tine ond pie 

groptis fliot con also be used 
jn word proce^sin^iiles 

• smart evaluatipn of 

formulae for nc^ur^te 
complex matrices ?- 
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Paperback Filer 128 or 64 
Database Manager 

Dotabase management made easy 




With Poperbock Filer 128 or 64, you con orgonize mailing lists, 
oddresses, inventories, telephone numbers, recipes and other 
information in an easily accessible form. Use it with Paperbock 
Writer 128 or 64 [or other word processors) to construct 
Individually customized form letters, 

Paperbock Filer 128 or 64 pockoges are fost, sophisticated and 
truly eosy to use. In addition to standard dotobose features 
they offer . . . 



use up to 255 fields per record 
(2,000 characters per record) 

sorts by up to 9 criteria, can 
save 9 different sorts 

prini labels in multiple 
columns 

flexible report formotting 
including headers ana 
footers 



optional password protection 
including limited access 
viewing or updating 

on-screeri help at all levels 

print from any record to any 
record 

arithmetic ond frigonomeiric 
functions in reports using up 
to 16 digit occurocy 
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MAItOADERSi 

CRTSTAL COMPUTER INC. 

In Mithfflflft 1-517-274-7667 
OuPskdeMLchigon \-Q0O-2i5-73lt 
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Serious software 
that's simple to use. 
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Your Commodore 128 or 64 



You want the very best software yoo can find for your 
Commodore 128 or 64, right? 

>bu wont inteqroled software — word processing, 
database and spreadsheet applications — ot o sensible 
price. But, you also wont top-of-the-line features. Well, 
our Poperboclt 128/64 software goes one better. 



r64, you'l find al the features you 
can imagine . . . and then some. And Paperback 128/64 is 
so easy to use, you won't even need the reference guide. 
On-screen and in memory instructions will hove you up 
and running in less than 30 minutes, even it you've never 
used a computer before. 

The price? It's as low as you'd expect for a line of 
software called 'Paperback'. Suggested Retoil Price for 
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the 128. Any of the 64 products may be upgraded to 
their 128 version for S15.00 (U.S.) + S3.00 shipping and 
handling. {Available to registered owners from Digita 
Solutions Inc. only.) 

Poperback Writer 128 or 64, Paperback Planner 128 or 
64 and Paperback Filer 126 or 64 . . . Solutions at 
sensible prices from Digital Solutions Inc. 

International & Distributor enquiries to: 

Digital 
Solutions 
Zinc. 



PO. Box345, SWionA 
WiHowdalo, OnlOfio 
Canack]M3N5S9 
1-416-221-3225 



Poperback Wrifer 128 and 64 are now ovoilobte in French. 



JOIN TPUG 

The largest Commodore Users Group 

Benefit from: 

Access to library of public domain software 
for C-64, VIC 20 and PET/CBM 

Magazine (10 per year) with advice from 

Jim Butterfield 

Brad Bjomdahl 

Liz Deal 



TPUG yearly memberships: 

Regular memberfattends meetings) 
Student member (full-time, attends meetings) 
Associate (Canada) 
Associate (U.SA.) 

Associate (Overseas — sea mali) 
Associate (Overseas - air mail) 



- $35.00 Cdn. 
^S25.00Cdn, 
-525,00 Cdn. 
-S25.00U.S. 
—$30.00 Cdn- 
-S35.00 U.S- 
-W5-00 U.S. 



FOR FURTHER INFORMATION: 

Send $1.00 for an information catalogue 
(tell us which machine you use!) 

To: TPUG INC 
DEPT- A, 

101 DUNCAN MILL RD-, SUITE G7 
DON MILLS, ONTARIO 
CANADA M3B1Z3 



BOOKS: 

• COMAL From A To 2. S6.95 

• COMAL Workbook, S6.95 

• Commodore sa Graphics with COMAL, 5ia.95 

• COMAL Handbook, S18,95 

• Beginning comal, S22.95 

• Structured Programming with COMAU S26.95 

• Foundations With comal, S19.95 

• Cartridge Graphics and sound, S9.95 

• Captain comal Gets Organized, S19,95 

• Graphics Primer S19.95 

• COMAL 20 Packages, Sia95 

• Librarv of Functions and Procedures, $19.95 

OTHER: 

• COMAL TODAY Subscription, 6 issues, S14.95 

• COMAL 0.11, Cheatsheet Keydosrd overlay, S3-9S 

• COMAL Starter Kit (3 disks. 1 book), S29.95 

• 19 Different COMAL Disks only S94-05 

• Deluxe COMAL Cartridge Package, S128.95 
(includes 2 books, 2 disks, and cartridge) 

ORDER NOW: 

ca»T TOLL-FREE i-8O0'556-5324 ext 1307 VISA Of MasterCard 
ORDERS ONLY. Questions ana information must caH our 
info Line 608-222-4^32. All orders prepaid only— no CAD. 
Add S2 per book shipping. Send a SASE for free info 
package or send check or money order In US Dollars to. 

COMAL USERS GROUP, aS.A., LIMITED 

5501 Croveiand Ter, Madison, wi 53716 

TPAMMARKS commodore 64 Of Commodore Electronics Ltd.; 
Captain comal of comal users croup. us.a. Ltd 




COMAL INFO 

If vou tiave COMAL— 
we have information. 






From The Guru Himself! 

The 1986 Commodore Reference Diary 

A 65 page reference section that includes: 

• All hardware specifications including 
lheCl28andPC10/20 ;, 

• Useful memory locations 

• Useful programs 

• SuperCharts 

• BASIC and machine language hints 

• Hexadecimal conversion 

• Sound, video 

• and more 

The full calendar and date book includes: 

• National holidays in ten countries 

• Personal notes 

• 1987 forward planner 

• Name, address, telephone section 

Just $5.95 

(plus 50C postage and handling) 



Order Your Copy Today! 


Canada 

The Transactor 

500 Steel es Avenue 

Mifton, Ontario 

L9T 3P7 


USA 

The Transactor 

277 Linwood Avenue 

Buffalo. New York 

14209 


^ _, Dealer Orders: ,,_. 
Canada USA 

Norland Agencies MicroPace Disiribuling 

251 Nipissing Road 1510 North Neil Street 

Miiton, Ontario Champaign. Illinois 

L9T4T7 61820 

(41 6) 876 - 4774 1 800 362-9653 



Volume 7 
Issue 01 

Circulation 64,000 






ROM Routines / Kernel Routines 

Start Address Editorial 3 



Bits and Pieces 5 

15-^1 Error Allocalti 

Coloured Recndrks Without REM 

Direclory Filename Highlighter 

Easy Speedup For TheC-l28Wi|h 1541 Drive 

C-128 Key Repeat 

C-64 Load It My Place Nol Yours! 

C-64 Iratics 

The SCNKEY Kernal Rouline 

C-64 and VIC Un-NEWs 

F^t Memory Clear Using Garba^ 

(PRINT AT UpdaTe) UpdaLe 

User Friendly Commands 

REM RAM Tag-Along Program Variables 

Siringings 

Rhetorical Loops 

SYSing With The C-\2S 

Running ABasiC From The CU On The Amiga 

C-frl Auto-Start 

The CSA Great Escape 

Return of The Swords Of Ekjom 

Dale Conventions 

The Hidden Message 

VerfizerForThePlu5 4andCI2a 

C-128's Help Key Redefined 

Amiga Lattice C Notes 

Reading S350- Formatted Disks with an 8050 

)57rs Can Be /oo Smart 

Holy Input- Butler, Bifmanf 



Letters 
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Help Line Scanner Required 

Attention HoT 1541 Owners 

". . . bul it you loot me twice (hen f'm indeed a loot " 

Relative File Access In ML 

Real Programmers. . . VerifiTer Update 

Help Hequired Sky Travel Support 

The Drive Disaster LADS to PAL Conversion 



NewsBRK 77 

TYansacTor on Microfiche 

Transactor Mail Order News 

The ViewTron Starter Kit 

Transactor Open On Viewtron! 

The Transactor Communicaiions Disk 

Music Workshops 

Distressed Commodore Users Hotlme 

The 1541 Revealed 

Used Computer Listing Service 

Sieve Jobs and Pixar Employees Buy Pixar 

MSD Disk Drive Information Exchange 

IrKritdiicing Super Kit/ L 541 

DJSKORGANIZER For The C64 

Amiga Spreadsheet, Telecommunications and BBS 

The Sourcerer 6500 Series DisassemtJier 

Help Master For The Commodore 64 

RESWITCH from Compusave 

UninterrupMble Power Supply 

80 Column Mono Cable For The C-128 

40/80 Column Switch Cable For TheC-12S 



TransBASIC Installment *9 18 

Longer Life For The C64 and 1541 25 

Matrix Manipulator mi array 3cceKl*chmqu« 26 

Jim Butterfield's C128 Memory Maps 29 

The C128 - You Can Bank On It 34 

Getting The C128's CP/M In Gear 36 

CliiO RAM Disk a non^ardware project OO 

AmigaBASlC Function Plot 42 

Kernel Routines In The B128 44 

Unmasking The Kernel 46 

Kernel Who? moreonthemysleriousKernel 48 

Adding Functions To BASIC 54 

Command Wedge inier«ptir.g basic com^nds 58 

Improving The SYS Command 63 

AUtOLOad and the LPKOM automatic load and run on powerup . . . UD 

SYMASS For The C64 a symbolic assembler thals pal compatible! ... 69 



; Before c 
'Verifizer 



ITwTraMQClOf 



July 1906: ^Mum•7, luua Ot 



Iftnsodor 

Editor in Chief 

KarlJ.H.Kildon 



Editor 

Richard Evers 

Technical Editor 

Chris Zamdfd 

Art Director 

John Mosiacci 

Administration & Sut^criptions 

Lana Kumphries 

Contributing Write ra 



Ian Adam 
Daniel Bingamon 
Neil Boy]e 
Anihony Bryant 
Tim Buist 
Jim BuUerlield 
Gaiy Cobb 
Jeffery Coons 
Pierre Corriveau 
Robert V. Davii 
Elizabeth Deal 
Frank B. DiGioia 
Yijun Ding 
Michael J. Erskme 
Jim Grubbs 
Tom Hall 
Bob Hayes 
John Jay Hiihger 
Andy Hochheimer 
John HoliTum 
Robert Huehn 
Tom Hughes 
Chris Johnson 
Mark Jordan 
Clifton Karnes 
Gary Kiziak 
Jesse Kmght 
James E L^Porte 
Wilham Levak 
Jack Lothian 



Scott Maclean 
Steve McCrystal 
Jim McLaughlin 
Terry Montgomery 
Michael Mossman 
Gerald Neufeld 
Noe] Nyman 
Dave Pollack 
Richard Per r it 
TerTy P rid ham 
Raymond Quirling 
Glen Reesor 
Gary Royal 
John W. Ross 
John Russetl 
Louis F. Sander 
Fred Simon 
Perry Shultz 
Edward Smeda 
Darren J . Spruyl 
Nick Sullivan 
Zoltan Szepesi 
Karel Vander Lugt 
Audrys Vilkas 
Andrew Waldjck 
Steven Walley 
Jack Weaver 
Charles Whitlern 
Evan Wilfiams 
Chris Wong 



Production 

Attic Typesetting Ltd. 

Printing 

Printed in Canada by 
MacLean Hunter Printing 



Program Listings In The Transactor 

All pr<^rams listed in The Transactor will appear as they would on your screen in Upper/Lower 
case mode To clari^ two potential character mix-ups, zeroes will appear as '0' and the letter "o " 
will ol course be \ n lower case. Secondly, the lower case L (J) has a flat lop as opposed to the 
number 1 which has an angled top. 

Many programs will contain reverse video characters thai repieseni cursor movements, colours, 
or function keys. These will also be shown exactly as they would appear on your screen, but 
they're iisied here tor reference. Also remember: CTRL-q within quotes is identical to a Cursor 
Down, et al. 

Occasionally programs will contain lines that show consecutive spaces. Often Ihe number of 
spaces you insert will not be critical to correct operation ol the program When it is, the required 
number of spaces will be shown. For example: 



print 



flushright ' - would be shown as - print "|10spaces]flush right 



Cursor Characlera For PET / CBM / VIC / €4 



Down - 

Up 

RJShl - I 

Left - [Lfl] 

Rvs - n 

RVSOIf- ■ 



liuert 

Ddelt 

Clear Scrn-Bj 

Home 

STOP 
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Coiour Character! For VIC / 64 
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BUck - 
While - 

Red - B 
Cyan - [CynJ 
Purple - I Pur) 
Green - | 
Blue - ■ 
Yellow- jVel] 



Orange 

Brown 

LI. Red 

Grey 1 

Grey 2 

U, Green - 

U. Blue 

Grey 3 - (Gr3I 



■ 

S 



Funclion Key* For VIC / 64 




F5- 
F6- 
F7- 

FS- 



Please Note: The Transactor has 
a new phone number: (4 16) 878 8438 
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Special April Fealure: 



S.N.I.F.F. : 

A Bold New Vision In Recording Media 



Software with an added dimension of realism 



Transactor magazine has jusl scooped Ihe story on an incredi- 
ble breakthrough in floppy-disk technology which promises to 
add a new dimension to software realism. Sensory Laboratories 
of Fremont Wyoming, a company which develops more natu- 
ral man-machine interfaces, has been secretly developing their 
new floppy-disk technology, called "Sensory Nasal Interface 
For Floppies", or SNIFF. 

The technology is now ready to be released for license by major 
software companies. Sensory Labs has managed to embed 
scents within the magnetic particles on a magnetic disk's 
surface. The basic idea works much like the "Scratch-n-Snifr' 
scent samples provided on paper carriers. The disk-based 
smells, however are released by the heat-producing friction 
caused by the pressure pad opposite the Read/Write head. As 
the disk spins and the pressure pad rubs on the disk surface, 
the disk surface is slightly worn and heated, releasing the 
smells to the surrounding air, which is then wafted into Ihe 
room through the drive's ventilation slots. 

Software vendors should be excited by the new sniff-disks 
(known as "floppy-sniffs"), since they can add a realism to their 
programs which was never before possible. Sensory Labs' 
President, Terrence Price, explains: "The first computers 
printed all their results on paper. Then, we had the CRT, which 
eventually opened up the wonderful visual world of computer 
graphics. Now we have high-quality sound and speech synthe- 
sis as well. The sense of smell is the next logical step in human 
interface technology " 

The first batch of disks will be released in 4 TPS (Tracks Per 
Sniff] format. On a 35-Irack disk like the Commodore 1541 
uses, this will give eight different smells which can be released, 
(The directory tracks are not scented because they need to be 
accessed periodically during a sniff-access.) A program releases 
a desired scent by moving Ihe Read/Wrile head to the proper 
sniff-track and holding it there for at least three seconds. (This 
is called a "Sniff access" or just a "Sniff") Sniff-access time is 
expected to improve in future advancements of the technology. 
Applications are expected to include games (smell the musty 
dungeon in an adventure); and a whole range of Sniffware for 
the blind, who have a keener sense of smell and will be able to 
follow scent prompts from the programs. 



Price admits that the idea is not completely original; he was 
inspired by the cinema technique known as Smell-o-Rama» 
most recently used in the movie "Polyester", But he maintains 
Ihat Sensory Labs is going beyond simple one-at-a-time sniffs, 
into the exciting science of compound scent. Scientists at 
Sensory Labs have broken down smells into nine primary 
elements, out of which almost all other smells can be created. 
Smells can thus be synthesized from the primary smells on 
disk, as the Read/Write head quickly seeks from one track to 
another, blending the smells to create new ones. 

''Once we come out with the 3 TPS format", explains Price, 
^'We'll be able to put all of the primary smells on a floppy, 
making true sniff-synthesis a reality. At that stage, we can sell 
our 'Sniff-Writer' software which will allow developers or even 
users to create any smell they need without having to place a 
special order." 

One of the problems being worked on still is the sniff-life of a 
disk; currently a typical track is good for about five sniff-hours. 
This may be enough for most games, but serious Sniffware will 
demand greater Sniff-lives. Improvements are on the way 
though, and Sensory Labs is even hoping to come out with a 
Hard-disk version called the "Hard-Sniff. Another potential 
problem is that in the event of certain hardware failures, the air 
in the room can be contaminated quickly. Sniff-disks come 
with warnings to use only in well-venlilaled areas. This is 
especially true for programs using some of the stronger smells: 
for example, in an Adventure game the player may enter a 
recently-used bathroom- 
Looking towards the future, Sensory Labs hopes to have 3,5 
inch Sniff-disks out by June, and the Hard-sniff by next year. 
When asked aboul the future of Sniff-disk technology, Price 
predicts: '1 see a major demand for Sniffware in Ihe next few 
years, because people are always looking for new methods of 
getting information from their computers. And as we say here 
at Sensory Labs, a picture may be worth a thousand words, but 
a sniff is worth a million' ". 



And remember. . . you read it first in The Transactor April 
Edition - CZ 
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Using "VERIFIZER" 



The Transactor's Foolproof Program Entry Method 



VERIFIZElK should be run before typing in any long program from 
the pages of Tfie Transactor !l will let you check your work line by 
line as you enter the program, and catch frustrating typing errors. 
The VHRIFIZBR concept works by displaying a two-letter code for 
each program line which you can check against the correspondmg 
code in the program listing. 



There are two versions of VERIFIZER on this page; one is for the 
PET, the other for the VIC or 64, Enter the applicable program and 
RUNit-lfyougetthernessage/'****'dataerror "'"*'". re-check 
the program and keep trying until all goes well. You should SAVE 
the program, since you'll want to use it every time you enter one of 
our programs. Once youVe RUN the loader, remember to enter 
NEW to purge BASIC text space. Then turn VERIFIZER on with: 

SYS 828 to enable the C64/VIC version {turn it off with SYS 831 ) 
or SYS 634 to enable the PET version (turn it off with SYS 637) 

Once VERIFIZER is on, every lime you press RETURN on a 
program line a two-letter report code will appear on the top left of 
the screen in reverse field. Note that these letters are in uppercase 
and will appear as graphics characters unless you are in upper/ 
lowercaiie mode (press shift/ Commodore on C64/V1C). 

Note: If a report code is missing it means we've edJtted that line at 
the last minute which changes the report code. However, this will 
only happen occasionally and only on REM statements. 



Listing 1 a: VERIFIZER for C64 and VIC-20 



With VERIFIZER on, just enter the program from the magazine 
normally, checking each report code after you press RETURN on a 
line. If the code doesn'l match up with the letters printed in the box 
beside the listing, you can re-check and correct the line, then try 
again. If you wish, you can LIST a range of lines, then type 
RETURN over each in succession while checking the report codes 
as they appear. Once the program has been properly entered, be 
sure to turn VERIFIZER off with the SYS indicated above before 
you do anything else. 

VERIFIZER will catch transposition errors (eg. POKE 52381,0 
instead of POKE 53281 ,0), but ignores spaces, so you may add or 
omit spaces from the listed program at will (providing you don't 
split up keywords!). Standard keyword abbreviations (like nE 
instead of next) will not affect the VERIFIZER report code. 

Tectinical info: VERIFIZER reside.^ in the cassette buffer, so if 
you're using a datasetle be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes. VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original 
destination of the Imk after it's finished. When disabled, it restores 
the link to its original contents. 



Listing 1b: PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 





KE 


lOrem-data oader for "venfizer" * 




CI 


lOrenrdata oader for " venfizer 4.0 " * 




JF 


15remvic/64 version 




CF 


15 rem pet version 




L 


20cs = 




, LI 


20cs=^0 




BE 


30 for i = 828 to 958. read a.poke f,a 




HC 


30 lor i = 634 to 754:read a.poke i,a 




DH 


40 cs = cs + a nexti 




DH 


40 cs = cs + a:next i 




GK 


50. 




GK 


50. 




FH 


60 it CS014755 then print" ■■■"■ data error *«"-t ": end 


OG 


■ 60 itcs<>15580tfien print"**"** data error '"t-*": end 




KP 


70 rem sys 828 




JO 


70 rem sys 634 




. AF 


80 end 




AF 


80 end 




IN 


100 




N 


100: 




EC 


lOOOdata 76. 74. 3,165,251,141, 2, 


3, 165 


ON 


lOOOdata 76, 138, 2, 120, 173, 163, 2, 133, 144 




EP 


1010data252, 141, 3. 3, 96.173, 3, 


3,201 


B 


10l0data173, 164, 2,133,145, 88, 96,120,165 




oc \ 


1020dala 3,240, 17,133.252,173, 2, 


3, 133 


CK 


1020 data 145,201, 2,240, 16, 141, 164, 2, 165 


1 
1 


MN 


1030daTa251, 169, 99,141, 2. 3,169, 


3, 141 


EB 


1030 data 144. 141, 163, 2, 169, 165, 133. 144, 169 




MG 


1040data 3, 3, 96,173,254. 1,133. 


89, 162 


HE 


1040 data 2,133,145, 88, 96, 85,226,165,217 




Df^ 


1050 data 0, 160, 0, 189, 0, 2,240. 


22.201 





1050data201, 13,208, 62,165,167,208, 58,173 




CA 


1060data 32,240, 15,133, 91,200,152, 


41, 3 


JB 


1060 data 254, 1, 133,251, 162, 0, 134,253, T89 




NG 


1070 data 133, 90, 32,183, 3,198, 90, 


16,249 


PA 


1070da1a 0, 2,168,201, 32,240, 15.230,253 




OK 


1080 data 232, 208, 229, 56, 32,240,255, 


169, 19 


HE 


1080data 165,253, 41. 3,133.254. 32,236, 2 




AN 


1090data 32,210,255.169, 18, 32,210, 


255, 165 


EL 


1090 data 198,254, 16,249,232, 152,208,229, 165 




GH 


llOOdata 89, 41, 15, 24,105, 97, 32, 


210,255 


LA 


1l00data251, 41, 15, 24,105,193.141, 0,128 




JC 


11l0datal65, 89, 74, 74, 74, 74, 24. 


105, 97 


Kl 


1110data165,251, 74, 74, 74, 74, 24,105,193 




EP 


1120data 32.210,255,169,146. 32,210, 


255, 24 


EB 


1120 data 141, 1, 128, 108, 163, 2, 152, 24, 101 




MH 

BH 


1130dala 32,240,255,108,251, 0,165, 
Il40datal01, 89, 133, 89, 96 


91, 24 


DM 


1130data251, 133,251, 96 
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Bits and Pieces 



Got on interesting programming tip. short routine, or an un- 
known bit of Commodore trivia? Send it in - if we use it in the 
Bits tfi Pieces column, well credit yon in the column and send 
you a free one-year's subscription to The Transactor 



1541 Error Allocater Scott Gray, New Bloomfield, MO 

Do you have a disk you can'l use because of errors on it? 
Rejoice, for help is here! Type in and SAVE Error Allocater. 
Place the faulty disk in the drive and RUN the Allocaler. In a 
few minutes every sector with an error on it will be allocated. 
Now, since DOS won't try to write lo those sectors, you can 
SAVE programs to that disk without encountering the dreaded 
Read Error! 



DA 
Kl 
MN 
GD 
CO 

FA 

ML 

HA 

OL 
PB 
FK 



10rem154T error allocater 

20c$ = chr${147): h$ = chr$(19} l$ = chr$(157): 

30 print c$: open 15,8,15, "u; " open 2,8,2, '^#" 

40gosub110: if ef then stop 

50fort = 1 to 35 fors = 

to20 + 2*{t>17) + {t>24) + (t>30) 
60 print h$ ^ track ' I " sector ' s; 
70 print 11$ " [3 spaces] " : print#15, " u1 : " 2;0;t;s 

: gosub 110: ifet^Othen 100 
80 print#1 5, " b-f; " 0;l;s: print#15, " b-a: " 0;t;s 
90 print: pnnferror "er'on "t", "s" 
1 00 next: next; close 2: close 1 5: end 
n0input#15,er,er$,e1,e2 

: ef= 1 +{er = or eF = 65 orer = 73): return 



Coloured Remarks 
Without REM 



Luis Pistoia 
Argentina 



Here is a simple way to make important REMs, such as those 
identifying subroutines, to stand out in program listings. 

Instead of the usual REM, like 

1 000 rem * * * sound routine * * • 

Make your subroutine-identifying remark like this: 



TOOO rem''|ffiM[YEL]*** sound routine •*• 



To get the Reverse-M, enter the line with a space in its place at 
hrsl, then move the cursor over the space and press RVS ON, 
shifr-M, and RETURN. 

When you list your program, the above line will appear in 
yellow as: 



• •• sound routine *** 

You can useyour favorite colour instead of yellow, or use RVS- 
ON to highlight the message. 



Directory 

Filename Higiilighter 



Dino Bavaro 
Don Mills, ON 



Here is a handy disk utility which allows you to highlight any 
filename in the directory. This is useful in making certain 
programs stand out, such as program boots; or to title various 
sections of the directory. The highlighting is achieved by 
renaming the file with four special characters preceding it. The 
four characters are: shifted space, two delele characters and a 
reverse-on. This leaves enough space for only twelve charac- 
ters for the rest of the filename. The rouline below will first ask 
you whether you want to highlight or un-hii^hlight and then 
ask for the filename. To load a highlighted file from the 
directory you can use: 

load ■ {shifted space)???fjlename " ,8, 1 



NM 
BN 
Gi 
FN 
FG 
MD 
KL 
BB 
GM 
NA 
OJ 
AA 
MF 
KA 
BH 
CA 
EG 
AC 
GE 
IB 



1 rem filename highlighter 

20 open 15.8.15: gosublOOO 

30hd$-chr${160) + chr$(20) + chr$(20) + chr$(18) 

40 input" 1:highlighl, 2:un-h^ghlight^n 

50 on n gosub 100,200 

60 end 

70: 

100 input-filename to highlight' ;hp$ 

110prjnt^15/rO:" +hd$ + hp$+ ' = " +hp$ 

120 gosub 1000 :rem check disk error 

130 return 

140: 

200 input " filename lo un-highlight " ;dp$ 

210pnnt#15,"r0;" +dp$+ " = ' +hd$ + dp$ 

220 gosub 1 000 ;rem check disk error 

230 return 

240: 

1D00input#15,e,e$,t,s 

1010 it e then print e,e$ end 

1020 return 
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Easy Speedup For 

The C^128 With 1541 Drive 



Richard Young 
Greenwood, NS 



Here's the BASIC Loader: 



Remember the VlC-20 and the 1 54 1 disk drive? Remember the 
instruction in the disk drive manual for adjusting the 1541 for 
use wifh the VIC-20? Actually, the command OPEN 1 5,8, 1 5, " 
UI-" was not required !o make the 1541 VlC-20 compatible, 
but rather it allowed the 1541 to function fasierwith the VIC. 
Now note the FAST command in the Commodore 128 (in 128 
mode); it turns off the 40-column screen - no big deal because 
every ^28 user should run it in 80 columns for anything but 
graphics - and allows the 128 to function much faster. Natu- 
rally, it can easily keep up with the 1541 set for the VIC-20 
speed- An estimated 17 to 18 percent increase in speed for all 
disk I/O is the result. With a 1541 and Commodore 128 in 80 
columns, enter: 

fast, open 15,8,15,"ui-'" 

Now youVe in for faster business without special speed-up 
software! Note that "111+ " puts the 1541 back to the slower 
speed required for the 64 mode and 128 in 40 columns- Of 
course, a 1571 is much faster still. . . 



EH 
ME 

IE 
HO 

IC 

Nl 
LC 
NC 
BG 
DF 
KD 
LI 



AJ 
NH 
KJ 
PG 
PA 



lOrem "loadJthere" by frank colaricci 
1 5 rem loads a prg at a given address 
20 rem 100% relocatable- edit line 35 
25 rem syntax: 
30 rem sys a, " filename ' .device number, 

load address 
35 a = 491 52 

40 fori = atoa + 72: read b: pokei,b: next 
45 end 

50 data 032, 253. 174, 032.158, 173. 032, 143 
55 data 173, 169. 100, 160, 101,032,219, 182 
60 data 160, 002, 177, 100, 153,251,000, 136 
65 data 016, 248. 165,251. 166.252, 164,253 
70 data 032, 1 89, 255, 032, 253, 1 74, 032, 1 58 
75 data 173, 032,247, 183, 152. 170, 169,008 
80data160, 000,032, 186,255.032, 253, 174 
85 data 032, 158, 173, 032, 247, 183, 072, 152 
90data170, 104. 168. 169.000.032,213.255 
95 data 096 



C-128 Key Repeat 



Mort Adier, Winnipeg, MB C-64 IioUcs 



Glen Mackinnon, Hanover, ON 



The C-i28 has auto- repeating keys as a default after power- 
up. To disable the auto-repeat, simply type; 

poke 2594,64. 

To re-enable auto-repeat, type: 

poke 2594,128 



C-64 Load It My Place Not Yours! 



Frank ColaHcci 
Winter Park. FL 



The Volume 6 Issue 05 Bits & Pieces section contained a 
program named " relocate " . I would like to suggest a relocat- 
able load as an alternative to editing the load address of a disk 
file. 

Here's a routine that can be appended to your program that will 
load in PRG tiles where you want Ihem. The ML program that " 
LOAD.IT.HERE" creates is relocatable and may be loaded 
wherever you have 73 bytes of free memory. Please note that 
locations 251 through 253 are used during the execution of this 
ML program. 

The syntax of using LOAD.IT.HERE is: 

SYS start, " fifename " .device number.load address 



Do you wish the Commodore 64 had more than one built-in 
character font? Thanks to the VIC II chip you can design your 
own custom fonts, unlike PET owners who are stuck with the 
Commodore set. 

Custom character sets are usually reproduced in magazines via 
hundreds of DATA statements, but this short program creates 
the new characters by modifying the old character patterns in 
memory. This program uses the built-in character set to create 
a new set of pseudo-italic characters. 

The program shifts the upper four rows of each character to the 
right {the N/2 in line 70), giving them an italics-type slant. Tht; 
new character set is located at 12288 (hex $3000) and Is 
enabled by a POKE 53272,29. Since this program uses straight- 
forward POKEs and only a divide-by-2 {shift right in machine 
language), it is a challenging but not impossible task for 
beginners learning machine language to try to translate. In fact, 
this program should be translated to machine language for 
increased speed; it is presented here in BASIC to clearly show 
the method of italicizing the characters. 

After the program runs, the upper and lower-case characters 
are unchanged, but replacing the reverse characters are the 
italic-like letters (this has the side effect of destroying the 
cursor). To use the italics, just print or type your desired text in 
reverse-field. To switch back to the regular character set, use 
POKE53272.2L 



1n# ifomocVOr 
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El 
BF 
PO 

MK 

JO 

cc 

AW 
DF 
LM 

HB 
MM 



1 rem italics for the c64 

20 poke 53272,29: rem change char, set 

30 ad = 55296: t1= 12268: t2 = 1331 2 

40 poke 56333, 1 27: poke 1 ,51 : rem disable 

irq, get char, rom 
50fori = 0to 1023: n = peek(ad + i) 
60 poketl +i,n 
70 It (I and 4) = then n = ny2 
80 pokGt2 + i,n; next i 
90 poke 1,55; poke 56333,129: re~enable Irq, 

normal rom 
1 00 print - normal characters " 
1 10 print'Pitalicscharactersf " 



The SCNKEY Kernal Routine 



(Author Unknown) 



Here it is, the naked truth: the SCNKEY Kernal routine has 
been sadly neglected. Well, no more! For speedy keyboard 
input, it is unparalleled, a hare to GETIN's tortoise. 

To lell you the truth, I'm not even sure how it was that 1 
stumbled across this handy routine (located at 65439 - $ff9f}. i 
noticed that in ail the memory maps, it was marked as not 
returning any values, but decided to try it out anyway, Voilal 
When Ihe routine is called, the Ascii value of the current key 
down is returned in the .X register!. This was something I'd 
tjeen looking for for a long time, and has since proved to be 
superior to GETIN lo check for keypresses. 

It works this way: the GETIN routine takes a character from the 
keyboard buffer and returns it in Ihe accumulator. All keys can 
be made to repeal by putting a 128 in location 650, but a delay 
loop in the keyboard scan means that only about 7 characters a 
second are returned. 

But SCNKEY has no such limitations. It is called as part of the 
standard interrupt process and updates the keyboard buffer 
and all key locations. However, reading from the buffer is slow 
and the locations (such as location 203) return values other 
than Ascii codes. It's Ihe .X register that's the key. The value left 
here takes into account Ihe shift, CTRL and Commodore-logo 
keys and reflects the state of the keyboard when SCNKEY is 
called. Best of all, SCNKEY can be called and the keyboard read 
even when interrupts are disabled. Try this; the speed is 
amazing. 

The SCNKEY routine can be used lo great advanlage in both 
f^L and BASIC. To use it from BASIC, SYS 65439 and Ihen 
PHEK(78I) lo gel Ihe Ascii value of the key currently held 
down. I only hope thai future memory maps will give I his greal 
little piece of code its due. 



C-64 and VIC Un-NEW» Shea T- Small, Thornhill, ON 

It's probably happened lo everyone. While working on some 
BASIC program you accidentally type " NEW ' , Usually that's 
the end of thai. All those hours of work gone down the drain. 
But there is a way out of that, Enler this line; 



For the 64 - 



For Ihe VIC - 



poke2050, 1 :sys42291 ,poke45,peek(34) 
:poke46,peek(35);c]r 
poke4098,1:sys50483:poke45,peek(34) 
;poke46,peek(35):clr 



Fast Memory Clear Using Garbage 



Donald Fulton 
Stoneman, MA 



Garbage can be useful. The BASIClinebelow will clear most of 
free memory, from 40K to 8K in only 2 seconds. Doing the 
same job with POKE would take almost 2 minules. 

z$- ' ' :forx = 1 to255:zS = 2$ + chr$(0):next 

In generating one active siring of 255 characters, an amazing 
32K of dead strings are left behind in dynamic string space. The 
math is the sum of 1+2 + 3 + , . . + 254 + 255. 

This technique is effective in clearing a hi-res screen {or filling 
it with any given byte) if Ihe screen is located wiihin the normal 
iree RAM area (below $A000). Do the clear before moving the 
lop of BASIC down. 



(PRINT AT Update) Update 



Mike Schmidt 
North Tonawanda^ NY 



In the Volume 6, Issue 5 Bits and Pieces column an article tilled 
" PRINT AT Update " staled thai [he Kernai PLOT routine was 
unreliable when entered through Ihe jump table at 65520 
($FFFO), 

This is not the case if Ihe carry is set or cleared before calling 
the routine by POKEing the desired status into memory loca- 
tion 783 {$030F). Before executing Ihe routine, BASIC will put 
the contents of 783 into the processor status register 

So, to sel the cursor position: 

poke 781, row: poke782,co1: poke 763,0 
: 5y& 65520: print ' message " 

To read Ihe cursor position; 

poke 783,1 : sys 65520: row = peek(781) 
:col = peek(782) 
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User Friendly Commands 



Frank E, DiGioia 
Athens, GA 



Commodore Trivia Department Did you know (hat there are 
two commands on the C64 which cannot give a synlax error no 
mailer whal kind of argumenls you use with them (if any)? Can 
you guess which ones they are? (Hint; ihey aren't STOP and 
END.) 

The Answer: GOTO and GOSUB 

Place the following program in memory {so we'll have some- 
thing to GOTO) and then try to crash the GOTO or GOSUB 
statements. 

print "this is line 0" 

1 print "this is line 1 " 

Now give them your worst: 

goto (fred) 
goto $$$ 

gosub "string var" 
gosub for/next 

You simply cannot crash these commands. 



REM RAM: 

Tag- Along Program Variables 



Herbert R. Coburn 

Spokane, WA 



Here's a trick I have not seen in any magazine or book about 
Commodore, 

The two bytes at $43 and $44 point to the start Oi BASIC text. 
Start your program with a REM statement and achr$(34) to gain 
a block of reserved memory imbedded in the program. Add six 
to the pointer at $43 and it points to the lirst byte of the 
reserved block. The block of memory can be as much as 74 
bytes, depending on whether or not you allow the line to be 
listed. The chr$(34) following the REM token lets most values 
POKEd into the line to be displayed. 

The value of this trick is that the block of memory rides alung 
with the program when it is SAVEd. For those of us not 
enamoured by copy protection, it lets the user copy an installed 
program without having to worry about tag-along files, I use it 
to store inifial values that depend upon a user's configuration. 
Simple instructions to the user can guide him, or her. through 
placing the correct values in the line by using the Screen Editor 
and SAVEing the program under another name. Or, one can be 
more ambitious and have the program determine if it has been 
'Lnslalled\ It can then ask the appropriate questions, POKE the 
right values. SAVE and RUN itself- This way, all previously set 
up parameters are there as soon as the program is LOADed - 
no need to store them in separate files anywhere. 



Editors Note. A good example of this technique is the program 
which Mr. Cohen enclosed with this article, but was not printed 
here for lack of space. When first run, the program allows you 
to set up the background, border and character colours to your 
liking, then stores these values in the REM statement as 
described above, and finally, SAVEs itself. The next time you 
LOAD and RUN the program, it restores these colours by 
looking at the three bytes it stored in the REM statement. Using 
the REM storage technique, a program can know whether it 
was run before, and it can find out some information from the 
previous run as welL -T,Ed 



S (ringings 



Jonathan Hill, BJoomfieJcl, CT 



In Commodore BASIC, there are some conditions that occur 
when using such character string functions as LEFT$, RIGHTS, 
and MID$ that programmers should be aware of. The condition 
can first be described when using the function: 

b$ = lett$(a$,3) 

This command appears fine; B$ should contain the first three 
characters that are in A$. But look again! If A$ is shorter than 
three characters, B$ will also be less than three characters long. 
This is definitely something to be wary of, as sometimes in a 
program, strings must be of a known fixed length. 

One solution is to use a decision statement before the string 
function to see if the character string is long enough to fill the 
bounds set by the string function, but there is a better solution. 
In the above example if three spaces are added to AS, then B$ is 
guaranteed to be three characters long, even if AS hasn't been 
assigned anything yet and contains a null (a zero-length 
string). For example; , 

b$ = lefl$(a$ -+- '^[3 spaces]") 

A similar method will work for RIGHTS and MIDS, simply 
adding spaces to the right or left of the character string, where 
needed. Keep in mind, loo, that you can pad the string with 
characters other than spaces. 

Finally, this solution also provides a handy formatting tool lor 
the PRINT statement. C-64 BASIC has no PRINT USING com- 
mand, such as is used on other computers to set up fixed length 
output fields, but you can achieve the same effect by printing 
strings of a fixed length using the above technique. Numerical 
data can be formatted by first converting to a string with the 
STRt function. The following are examples; 



print right$( " [4 spaces] " + c$A) 
print " amount payable " ; right$( " 
print micl$(e$ + "[2 spaces] ',2,1 



A*. 4. 4.4.4 



+ slr$(aml),6) 
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Rhetorical Loops 



SYS address. A. X,YP 



The following program is jusl a nine-digit counter which starts 
at zero and counts up. Big deal. But it uses nested FOR/NEXT 
loops lo do it, and the variable names used are unconventional 
enough lo turn ihe code into readable nonsense. Here's the 
prog rain: 

1 rem " Programmable Prose by Chris Zamara 

and NickSullfvan 
2mD = 9:ol = 9 in = 9:om = 9:od = 9:ps = 9:ro = 9:r = 9 
3: 

100 ford = automobile 
110 fork = food tool 
1 20 for a nice time = call antoinette 
130 forty tfiieves = far too many 
140 forsaken = stood up 
150 forest = treetops 
160 tort knox = hard lo rob 
170 formula = highly top secret 
180 foreigner = visitor 
190: 

300 print d;k;an;ly;sa;esilK;mu;ei 
310 nextei.mu,tk,es,5a,ty,an>,d 

The above program is fairly useless, but shows that if you really 
want to, BASIC will let you write strange-looking and difficult 
to understand code. It's the programmer's responsibility lo use 
meaningful variable names and put spaces in the right place. 
On the other hand, perhaps "programmable prose'* could be a 
new form of expression. 



Any or all of the parameters can be left out. and they wil 
default to what's in the memory locations indicated above. For 
example, you could code "SYSaddr.20 " to set the accumulator 
lo 20, or "SYS addr,,,,!" lo set the carry flag (processor 
status = 1) before entering the routine. 



Using your favorite Kernal routine from BASIC has never been 
simpler than on the 128! You can make your BASIC programs 
more efficient by making calls directly to ROM routines. This 
makes for awful, unportable code, but if you need more speed, 
a few strategic SYSes may do the trick. 



Running ABasiC From 
The CLI On The Amiga 



Robert Case 
Springfield, OR 



To run ABasiC from the CLI (instead of by clicking the ABasiC 
icon from WorkBench). you have to first increase the stack size 
to prevent a crash. From the CLI, enter; 

STACK 8000 
RUN ABASIC 

ABasiC will then come up on a screen of its own. To return to 
the CLI or WorkBench, first reduce the ABasiC window size and 
nnove the window to reveal the ABasiC template on the top line 
of the screen. You can then slide down the ABasiC screen or 
dick it behind with the re-ordering gadgets to reveal the 
WorkBench screen and other open windows. 



SYSingWitiiTheC-128 

TheC-128, tike the 64, allows you lo pass values to a machine 
language routine through the A, X and V registers, and also 
read the contents of these registers after the routine has 
finished. You can POKR the desired values into special RAM 
locations to Initialize the registers, SYS to the routine, then 
PEEK the locations lo find the values set by the ML routine. The 
locations are as follows; 



C-64 Aulo-Slart 



Location 
C64 CI 28 


Register 






780 
781 
782 
783 


6 
7 
8 
5 


Accumulator 
.X register 
Y register 
.P (Processor 


Status) 


register 



But wait! With the C-128 it's even easier than that. You can 
pass values of A, X, Y and P to a machine language program 
directly from iheSYSsiatemenl. To do this, jusl put the parame- 
ters after the SYS like Ibis: 



Steen Pederson 
Frederiks, Denmark 



Here Is a compact BASIC program which will turn any program 
into one which will automatically RUN when loaded. Just enter 
and run "Autostart \A " listed below, and it will ask for the 
name of the program lo convert. It then asks for the name of the 
new, auto-start version of the program lo put on disk. After a 
while (depending on the length of the program), Autostart will 
finish, but leave the machine in a confused state. You'll have to 
reset the machine (turn OFF then ON) at ihis point. 

The new file created on disk must be loaded in the following 

way: 

]oad"filename" ,8,1 

Your program will then LOAD and automatically RUN, The 
STOP and RESTORE keys will be disabled, so your auto-start 
programs will be protected from being modified and re-saved 
to disk. 
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BE 

CK 

AO 

KM 

MH 

CO 

EC 

FL 

CD 

OG 

NO 

CI 

AC 

OH 

PK 

OG 

PE 

GD 

MJ 

JK 

IG 

EG 

GF 

CM 



1 00 print " Enter name of program to be aulo-slarted " 

1 1 input " present name " ;f$ 

1 20 print " Enter filename for new auto-boot program ' 

1 30 input " new name " ;n$ 

140 poke 649.0: Open 1,8,1 , " 0: " + n$ 

150 print^1,chr$(199);chr$(2), 

160fori = 1 to 61 

170 read v: print#1,chr$(v); next 

180 fori = 772 to 2048 

190 pnnt#1,chr$(peek(i));: next 

200 oper^ 2,8,3,f$; get#2,g$,g$ 

210fori=0tGl 

220 get#2,g$: if 9$ = ^' ^ then g$ = chr$(0) 

230l = st; print#1,g$,: next 

240 close 1: close 2 

250: 

260 data 169, 47,133, 0,169, 55,133. 1 

270data169, 0,133,157, 32, 68,229.169 

280dala 82,141,119, 2,169,213.141.120 

290 data 2,169, 13,141,121, 2,169, 3 

300 data 133, 198, 169, 131, 141, 2, 3, 169 

310datal64, 141, 3, 3,169, 52,141, 20 

320data 3,169,173,141, 24. 3, 76,116 

330 data 164, 139,227, 199, 2 



The C-64 Great Escape 



David Claussen 
Menomonee Falls, Wl 



Below is a short machine language program for the C-64 that 
creates the effect of an escape key. An escape key, wtiich is 
normally found on IBM compatibles, is normally no! available 
for Commodore owners. What an escape key does, simply put, 
is let the user " escape " from whatever he or she may be doing 
at the time. 

While programming in BASIC, what this function does is clear 
the screen line thai the cursor is on and position the cursor al 
the first column. It also turns off quote mode, which allows 
normal use of the cursor and other control keys. And finally, it 
turns off reverse mode. 

The back-arrow key (located at the top left corner of the 
keyboard) becomes the escape key. If you wish to use the back- 
arrow key in a program, hold down the Commodore- logo key 
while pressing back-arrow. 



10 rem =♦* escape key- press backarrow ** 
20fDrj = 49152to49227. read x: poke],x 

: ck = ck-f x: next 
30 if ck<>e698 then print " data error " : stop 
40sys49152 
50: 

100 data 120, 169, 13,141. 20, 3,169,192 
110data141, 21, 3, 88, 96,165,197,201 



OJ 
KL 
OM 
BJ 
JL 
CH 
FN 
LG 



120data 57,208, 54,173,141, 2,201. 2 
130data240, 47,166,214, 32,255,233.160 
140 data 0, 24, 32, 10.229,169, 29.141 
150 data 119, 2,169,157,141,120, 2,169 
160 data 2,133,198,169, 0,133,212,169 
170data 0.133,199,169, 32.141,119, 2 
180datal69, 157, 141,120, 2,169, 2,133 
190 data 198, 76. 49,234 



Return of The Swords Of Doom 



AHhur Wolf 
Wichita, KS 



We told you they'd be bock! This time, thanks to Mr. Wolf's 
program, the Evil Swords appear as comets! Ooh. scary stuff, 
kids! 



EP 

JE 

KN 

Nl 

BP 

KG 

AB 

FP 
MC 
OC 
LM 
FP 
BE 



1 rem for frustrated comet gazers 

15 rem tiere'sthis rendition oi Chris's 

20 rem ' Evil Swords of Doom ' (6/4 p.9) 

25: 

30i$ = Chr$(157) 

35 poke 53280,0: poke 53281 ,0 

40 a$^^^lBLUE]MHMHlCVAN]MH|MB[WHT] 

+IH^ 

45b$ = 

50printchr$(142) 

55 print '■s"tab{rnd(1)M1) 

SOfor i = 1 to 19: print a$; 

65ford = l to 15: next 

70 next 1: printbS;: goto55 



Date Conventions 



RX. Eldridge 
Pemberton, BC 



Thiere tias always t>een confusion because of the U,S, conven- 
tion of expressing the date in the order "monlti-day-year" 
and the rest of the world using day-monlh-year. Several years 
ago an international standards body recommended that every- 
one use year-month-day and it is slowly catching on. 

If you use year-month-day as a dale reference in one field of a 
data file, the computer will automaltcally sort references into 
the right chronologjcal order. For logging purposes where 
precise lime is important the number can be extended lo year- 
monlh-day-hour-minule. 

The basic idea is useful in a iwo-day amateur radio contest log. 
If you use the form day-hour-minute for the time entry, Ihe log 
can be re-sorted easily into chronological order aher having 
sorted into callsigns or countries or whatever for analysis- 
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The Hidden Message 



Jim Butlerfield, Toronto 



There's an cncrypled message in tlie Commodore 128. You'll 
never find i1 by inspecling memory, since it Is definitely in code 
, . , and not an easy one to crack. 

I'll tell you where ills located. It's in bank 15- that's ROM -at 
addresses 44644 to 44799. It's not easy to crack; since every 
one of the 1 56 characters has a different ' key " value, it's not a 
simple Caesar cipher. In fad, if the 1 56 keys were independent 
and random, the code would indeed be uncrackable, since no 
key is repeated. But each key is mathematically related to the 
previous one, and a cracker with time and ingenuity might - 
perhaps - be able to break it. I'm about to give it away, so you 
might like to stop reading right now if you're a serious cipher 
solver. 

Secret code can often be found in software. Sometimes it's a 
personal signature by the author. Sometimes it's a secrel proof 
of copyright. Sometimes it's an amusement. Here's a simple 
Basic program to make the code readable. 

By the way, if you just want to read the message, I'll give you a 
quick method at the end of this article. 

Enter the following crude decodins^ program on your Commo- 
dore 128. Use 40 column mode, because I'm POKE-ingto the 
screen. 

100 bank 15 

110 print chr$(147);chr$(14) 

120 print: print: print 

130forj = 1 to156 

1 40 X = xor(xor{peek{44643 + j),i),59) 

150 m = 192:if(xand ni) = 0or{xand m) = m then m=^0 

1 60 if (xor(x,m) and 32)>0 then m = xor(1 28, m) 

1 70 poke 1 023 + j,255 and xor^.m) 

180 next] 

You'll see the message in crude screen format - formatting 
characters such as RETURN will appear as control characters, 
but it's readable. 

If you just want to read the message, and don't care where it's 
stored or in the decoding process, there's an easier (and neater) 
way to see it on your 1 28 screen. Just type: 

sys 32800,123,45,6 



Verfizer For The Plus 4 and CI 28 

By next issue we'll have a Verifizer for the B Machines and for 
the C128 in 80 Column mode. They'll all appear up at the front 
with the other Verifizer programs. 

Plus 4 Verfizer 



EE 

NH 

Jl 

AP 

NP 

JC 

ID 

PL 

CA 

OD 

LP 

EK 

0\ 

LK 

GJ 

DN 

GJ 

CB 

CB 

PE 

DO 

BA 

BG 



1010 rem * commodore plus/4 vers>on 
1020 graphic 1: scnclr: graptiicO: rem make 

room for code 
1030 cs = 
1040 for ! = 4096 to 4216. read x: pokej,x 

; ch=ch + x: next 
1050 if chOl 3146 then print "checksum error" 

: stop 
1060 print "sys4096: rem to enable' 
1070 print " sys 4099: rem to disable " 
1080 end 

1090data 76. 14, 16,165,211,141, 2, 3 
1100data165, 212, 141, 3, 3, 96,173, 3 
mOdata 3,201. 16,240, 17,133,212,173 
I120data 2, 3.133,211,169. 39,141, 2 
1130data 3,169, 16,141. 3. 3. 96.165 
1140data 20,133,208,162. 0,160. 0,189 
11 50 data 0, 2.201, 48.144, 7,201, 58 
1160 data 176, 3,232,208.242, 189, 0, 2 
1170data240, 22.201. 32,240, 15,133,210 
1180data200, 152. 41, 3,133,209, 32,113 
1190 data 16, 198.209. 16,249,232,208,229 
1200 data 165. 208. 41, 15, 24,105,193,141 
1210data 0, 12,165,208, 74, 74, 74, 74 
1220data 24,105,193,141, 1, 12,108,211 
1230 data 0,165,210, 24,101,208, 133,208 
1240 data 96 



C 128 Verifizer (40 column mode) 



Nl 1000 rem " data loader (or 'verifizer +4" 



PK 
AK 
JK 
NH 
OG 

JP 

MP 

AG 

ID 

GF 

IMG 

HE 

Lfvl 

JA 

El 

KJ 

DH 

JM 

KG 

EF 

CG 

EC 

AC 

JA 

CO 

80 

PD 



3,165 



1000 rem * data loader for " veritizerc128"' 
1010 rem * commodore cl 28 version 
1 020 rem * use in 40 column mode only! 
1030 cs-0 
1040 for j = 3072lo 3214. read x: pokej,x 

: ch = ch-f x: next 
1 050 It Choi 7860 then print " checksum error " 

: stop 
1 060 print " sys 3072, 1 : rem to enable " 
1 070 print " sys 3072,0, rem to disable " 
1 080 end 

1090data208, 11, 165,253, 141, 2, 
1100data254J41, 3, 3, 96,173, 
1110data201, 12,240, 17,133,254,173 
1120data 3,133,253,169, 38, 141, 
1130data169, 12,141, 3, 3, 96, 
1140 data 133, 250, 162, 0, 160, 0, 
1150data 2,201, 48, 144, 7,201, 
1 1 60 data 3, 232, 208, 242, 1 89, 0, 
1170data 22,201, 32,240, 15, 133, 
1180data152, 41, 3, 133,251, 32, 
11 90 data 198, 251, 16,249,232,208,229, 56 
1200data 32,240,255,169, 19, 32,210,255 
1210datal69, 18, 32,210,255,165,250, 41 
1220data 15, 24,105,193, 32,210,255,165 
1230data250, 74, 74, 74, 74, 24,105,193 
1240 data 32,210,255,169,146, 32,210,255 
1250 data 24, 32,240,255,108,253, 0,165 
1260dala252, 24,101,250,133,250, 96 



3, 


3 


173, 


2 


2, 


3 


165, 


22 


189, 





58, 


176 


2, 


240 


252, 


200 


135, 


12 
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C-128'8 Help Key Redefined Walter Kiceleff 

Buenos Aires, Argentina 

1 really like your magazine and I would like lo conlribute by 
sending you this 'Curiosity' 1 discovered in my computer 

[n the Commodore 128, you can redefine the "HELP key lo use 
it like a Function key. The HELP key has a memory assignment 
of only 5 bytes (4168-4172). It you Poke these locations with 
the Ascii value of the characters you want to use; Prestol ll 
works. For example: 

101ori = 4168to4172 
20 read a$: poke i,asc(a$) 
30 next i 
40datap,r,i,n,t 

If you wani to add a carnage return, poke 4172,13. Then your 
message with have 4 letters (not 5) plus a carriage return. 



Amiga Lattice C Notes 



Robert Case 
Springfield, Oregon 



While using the Amiga Lattice C Compile, version 3.02, I 
encountered two problems. A description of each problem 
follows: 

First Problem: ica/i/^. , , When sco^/" was used in the following 
form, the program didn't halt and wait for keyboard input: 

scant ( " %f%c\n " , &first, Ssecond); 

When the form was changed to: 

scant ( " %i %c\n " , &first, &second) 

The program would halt and wail for keyboard input. The 
addition of a space before each '%' corrected the problem. 

Second Problem: letters "E" and/or ^e"... when these 
letters were used as a key to " exit " the program using 'scanf, 
their use was not recognized. When the letter "Q" was 
substituted for the letter "E\ the program worked as ex- 
pected. Is it possible that the letter "E" is a reserved word in 
this version of C? 

Another point: it is often helpful while working from the CLl to 
have a larger STACK lo prevent a system crash. 1 reset the stack 
lo 8000 or even higher before programming and testing. /See 
next Bit) 

Reading 82 50- Formatted Disks with an 8050 

Since the 8250 uses both sides of a diskette, you can't use an 
8050 to read any data on the opposite side. Fortunately, the 
8251) only uses the other side when the first side gets full. To 
find oul if any data has been placed on the opposite side, check 
the number of blocks free. If there's less than 2052 blocks free, 
you can read all the files on the disk with an 8050. 



1571*8 Can Be too Smart 

We all know that the 1 57 1 isthegreatest thing since the return 
of the mini-skirt. But II tries so hard that it can confuse instead 
oJ help. For example, consider this sequence ol events: 



t) LOAD in a short (1 block) program from the CI 28 

2) Remove Ihe disk, put it into a 1541 anduseaC-64 lo replace 
the program with a different one 

3) Put the disk back into the 1571 and LOAD"* ",8 

You would expect it to load in the new version of the program, 
right? Well, the 1571 slill has the program in its RAM buffer, 
and thinks it can be smart and save lime by giving you the copy 
from RAM instead of going out to disk. So, you get the original, 
un-modified program that doesn't even exist on the disk 
anymore. Proof that " A little knowledge is a dangerous thing " . 
Or, as Nietzsche put it, " Better know nothing than half-know 
many Ihings ", 



Holy Input-Buffer, Batman! 

" Robin. . . 1 think ihere is a diabolical plot brewing at Commo- 
dore headquarters. " 

"Say it isn't so, Batman!" 

" I'm afraid it is. Are you familiar with the Input buffer in the 
Commodore 64? " 

'Well. Batman, from the Bal-Computer I've learned that 
BASIC program Imes are stored in the input buffer after they're 
entered. " 

" Right Robin! 1 believe that after the lines are stored, they are 
also tokenized in the buffer, are they not? " 



11 f-^ 



Gosh, Batman, you're so right! 

"Very perceptive of you. Boy Wonder. Now 1 have but one 
more question for your keen mind: is the line number stored in 
ihelnpul Buffer?" 

" This one I know! Just like the Bat-Buffer here in the Cave, ihe 
C-64 input Buffer only stores the line itself, without the line 
number, " 

" Fxcelleni Kobm! Now look at tins Bat-Dump of Ihe Commo- 
dore 128 Input buffer right after a line has been entered." 

" Holy RAM-Chip! There's the line number at the start of the 
buffer, just as it was enterd by Ihe user, leading zeros, trailing 
spaces and all! In ASCII1 What kind of a fiend would concoct 
such a scheme?" 

"The world is full of forces we don't understand, Robin. 
Commodore is just one of them. They've done Ihe same with 
the Plus 4 andC-l6aswell1 Just thank the good Lord that we 
have Bat-Dumps, Bat-Anlhologies, and the minds to compre- 
hend Ihem." 

"Well said, Bat-Friend! ^ 
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Letters 



Help: Line Scanner Required: Some lime ago, in 'some' com- 
puter magazine, I saw an advertisement for whal i believe might 
have been called a "line copier" or line scanner' for PCs. It was 
supposed lo be able to copy printed or typed text directly from 
paper and put il in the computer's memory and, presumably, onto 
disk as sequential files. Is such a device available for the Commo 

dore 64 ? 

William R. Carr 
R.R,'3,Box233 
Harrisburg, IL, USA 
62946 

About a year ago. The Transactor appeared at a computer show 
called the Computer Fair in the heart of Toronto. The booth next to 
ours was displaying a product that really caught our eye. It was a 
line scanner called the Omni-Reader. It worked in a nooel man- 
ner: the "eye" of the reader was mounted on a oertical/horizontal 
slider assembly. A document would be placed underneath it and 
you ux)uldscan each line by band with the slider At a pretty good 
pace, it would recognize about 6 or 8 different type fonts, and send 
out their character codes to an RS232 port. We were impressed. So, 
in the true spirit of advancing with the limes, Karl struck up a 
conversation with the sales rep. who promptly agreed to lend us 
one for a few days to try out. 

Well, the people representing the Omni-Reader must have fallen 
off of the edge of the world because we never heard of them again. 
Too bad; an item like that deserves some terrific free press. My 
advice today Is to hope that this letter/reply will generate some 
response from our reading audience. If anyone reading knows of a 
line scanner for the Commodore 64. or for that matter any 
computer, please drop us or William a line. We would really 
appreciate it. 



Attention Hot 1541 Owners: Here's a bit of helpful information 
to help hot disk drive users to coot down. 

An easyand fnexpensive way lo prevent overhealing of your i54l 
disk drive is to buy four new pencils and cut them down lo two and 
a quarter inches, measured from the end of the eraser. Bevel (he 
cut ends slightly with a pencil sharpener. Place the bevelled ends 
into the recessed screw holes on the underside of the disk drive. 
This allows fresh air to get to the breathers located on the 
underside of the drive. 

I would also like to ask a question. If I get a C-128 will my €-64 
modem be compatible with the C-1 28 in a!I modes? Whal about an 
interface for a printer? 

Duane Barry, Cambridge, Ontario 



A 1541 on four legs. It might catch on. I am pretty sure that 'hot' 
1541 users all over will appreciate your advice. Thanks, 

About the C64 modem. The modem will work in the C128 mode 
but not the CP/M mode, at least not yet. The modem itself is not at 
fault on this one. It 's just that Commodore did not include a driver 
for the RS-232 pon just yet in their release version of CP/M Pius. 
Word's out. though, that a version is available through Compu- 
Serve that supports RS-232 communications, and that within a few 
months Commodore will be releasing the same for general public 
consumption. About CompuServe and CP/M: apparently. Commo- 
dore has included some extra software that re-configures your 
C128 in C128 mode to act like a CP/M machine so you can 
download the new CP/M and store it on a CP/M formatted 
diskette. Just make sure that you are in CI2S mode with an 
appropriate terminal package when you phone in, and have a CP/ 
M formatted disk handy. 

A regular Commodore serial printer will work in all modes of the 
C-I2S. If you have an interface that hangs off the serial port to 
some strange type of printer, chances ore that it will work just fine. 
But if your interface, whatever the type, connects to the cartridge 
port, as with an IEEE interface, you can be pretty well assured that 
the CI28 won't like it 

Take for example an IEEE interface that we all use at the maga- 
zine. It has been dubbed the GUNK (Garvin 's Link). It is a terrific 
true-to-life IEEE interface for the Commodore 64. Its true beauty lies 
in the fact that it doesn t do anything: no extra commands and no 
special tricks, ft just supplies a really fast IEEE interface for your 64 
without consuming memory, ft does this by swapping itself into V2 
of the E ROM. The RAM underneath is left alone, assuming that 
one lead is hooked up correctly inside of the 64 to a resistor But the 
CI 28 is a totally seperate system and the GUNK is not compatible 
with CI 28 ROM. 

However, (he CLINK will work on the CI28 in 64 mode, as wilt 
most of the cartridge port cards for the 64. Be carehjl though - some 
have leads that are connected internally and the CI 28 PC board is 
much different than the C64. The GUNK, for instance, has a lead to 
the left lead of R44 on the 64; on the CI28 it goes to Pin 29 of the 
OS8502 chip. This little trick was supplied to us by a gentleman we 
met recently while out in San Francisco. 

One last point: the GUNK works fine with both Viewtron and 
Quantum Link downloads. The Viewtron software loads and runs 
fine from the IEEE drives, but the Quantum software must be 
loaded from a 1541 or compatible. But Quantum downloads to the 
IEEE work -just flip the GLINK switch back to serial when it s done. 
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*\ , . but if you fool me twice tlien I*m indeed a fool/': 

Thankyou very much for publishing John Holttum's The Commo- 
dore 128: impressions and Observations^ in Vol. 6, Issue 5. Like 
many C-64 owners I suspect, i Jelt wined and dined by Commo- 
dore's advance advertising for the new C-128. But 1 was mildly 
suspiciousbecauseof their poor record with the Plus/4 andC-16. 

notably their failure to provide good documentation and program- 
mer's support for those models, i.e, something akin to the 'Com- 
modore 64 Programmers Reference Guide\ Also, the C-1541 disk 
drive's SAVE® and SCRATCH (yes Ma. there's a SCRATCH bug too) 
bugs are a perpetual pain in the you-know-what for (a) program- 
mers during the process of writing code, and (b) for the prospects of 
reliable database systems which involve scratching or replacing 
files on disk. 

Thanks to Mr, Holttum and The Transactor, 1 no longer have any 
problem deciding whether to purchase the C-128/1571 system. 
Actually, I decided that my next disk drive would have to be a dual 
drive and presumably the 1572 is essentially just two 1571 'sin the 
same case. But in any case, 1 will no* be buying the C-1 38/ 1571/ 
1572 until there are plenty of independent public reports that 
Commodore has remedied the atK)ve mentioned problems. You 
can fool me once (the C-1541), but if you fool me twice them Vm 

indeed a fool. 

John R- Menke, Chessoft Ltd., Ml. Vernon. IL 

Nice fo hear from you again John. There is a rumour that new 1 57 1 
ROMs are under construction that fix Save@ as welt as other bugs. 
When it will be released and under what kind of offer we probably 
won If know W it's ready. 

Documentation seems to be coming. Commodore is releasing a 
technical reference througfi SAM*s again, Abacus has the "Inler- 
nafs^'book andanoiheron the way, and Jim Butterfield^s book will 
be updated too^ 



OPEN Command Channel 



Ida 


noi 




tay 
Idx 


*$os 




jsr 


$ffba ; 


setlfs 


Ida 


*$00 




}sr 


$ffbd ; 


.setnam 


jsr 


$«cO 
Ikerr 


;open 

lyour kernal error routine 


OPEN Relative File: 




Ida 


-■$02 




tay 
Idx 


•$08 




jsr 


$ffba 


isetlfs 


Ida 


*<nam 


;io address file name 


Ida 


'>nam 


ihi address file name 


jsr 


$ffbd 


; setnam 


jsr 
jsr 


$ffcO 
$kerr 


iopen 

; kernal error 


jsr 


$derr 


;disk error check routine 


Pointer Routine 




Idx 


*$0f 




)sr 


$ffc9 


:chkout channel 15 


Idy 

* 


-$00 


ilength of word to send 


t 

load - 


* 




Ida 


word,y 


;load word 


jsr 


$ffd2 


; output word to com mane 


iny 
cpy 
bne 


'$05 
load 


;end of word yet? 


isr 


$Hcc 


;clrchn 



word .byte $50, $5c, $01. $00, $01 



Relative File Access In ML: Loved your excellent article on disk 
access from machine code in Volume 6 Issue 5, and yes I would 
like to see more code on the use of relative files. 

So here's some stuff. The syntax in Basic for relative files is: 

OPEN the command channel OPEN 15,8,15 
OPEN the relative file OPEN 2.8-2, " Oifilename " 

Set the POINTER to the record with: 
PRINT-15."P"+CHR$(channel' + %)+CHR$(lo-rec') 

+ CHR$(hi-rec') + CHR$(character) 
WRITE or READ the file with PRINT-2. INPUT*2, or GET-'2 
CLOSE the channels after use. 

One word of caution; if you write to the file, IMMEDIATELY after 
writing the file, reset the pointer to the beginning of the file 
accessed with a recall to the set POINTER routine. This will stop 
any mess-up of files. 

Sorry 1 don't have PAL but I'm saving my pennies up to get it. In 
machine code the routines are similar to your article. 



The characters in WORD are: 

$50 = Ascii for the letter y 
$5c == Ascii for channel ' + 96 (2 + 96) 
$01 = Ascii for lo byte record ' (*1) 
$00 = Ascii for hi byle record * (-0) 
$01 = Ascii for character* (first char) 

To access any record all you have lo do is update the 3rd, 4th, and 
5ih characters of WORD (lo/hi byte record*) before you call the 
POINTER routine. To write or read the data use the appropriate 
input or output routines as in your article. 

It's easy and simple lo use relative files. They are fun, fast and NOT 
computer memory robbers. Hope this info is of use. 

John Houghton. Collingwood, Ontario 

It 's nice to hear a kind word mixed with some good advice. Thanks 
for all. I agree that a pretty large hole was left in my article by 
excluding relative file access, but f felt it hard to write pure theory 
without including a ML relative file access demo thai worked in a 
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friendiy way. ie. oerbose. As you have shown, ML relative fife 
access is not code consuming. At the time I knew that the only code 
consuming port would be through trying to make if easily useable. 
Perhaps in a future issue HI write up a good and friendly data base 
or something that people can use and learn from. Might be worth a 
shot. 



Real programmers don't eal quiche. In fact real prc^rammers don't 
know how to SPELL quiche. They live on Twinkies, Doritos, Coke 
and S wee h wan food. 

Real programmers don't write in COBOL. COBOL is for wimpy 
applications programmers. 



Idx 


*lfinp 




jsr 


chkjn 


;sel input device 


jsr 


chrin 


;get a character 


pha 






Jdx 


-Ifout 




jsr 


chkout 


:set output device 


pla 






jsr 


chrout 


;write thecharacl" 



Would have been acceptable, as stated in the article. Unfortu- 
nately, with a machine such as the CI28 a mess would have 
developed. You have to make sure that CLRCHN was performed 
before setting either the input or output channels. For the example 
above, thestatement 'JSR CLRCHN' should be inserted before the 
'LDX ^LF for both input and output. This is actually good practice 
irregardless of the machine you are working on. A temporary lapse 
into bad form caused this unfortunate slip. Sorry about thai 



In case it hasn t been noticed yet. f did encourage a little bit of bad Real programmers' prc^rams never work righf the first time. But if 
practice in my article with the file read/write technique employed, you throw them on the machine they can be patched into working 
With the PET, CBM, VIC and 64. code such as: in 'only a few' 30-hour debugging sessions. 

Real programmers don't write in FORTRAN. FORTRAN is for pipe 
stress freaks and crystallography weenies. 

Real programmers never work 9 lo 5, If any real programmers are 
around at 9 AM it is because they were up all night. 

Real programmers don't write in BASIC. Actually, no programmers 
write in BASIC after the age of 1 2. 

Real programmers don't write in PL/1. PL/I is for programmers 
who can't decide whether to write in COBOL or FORTRAN. 

Real programmers don't play tennis, or any other sport that 
requires you lo change clothes. Mountain climbing in OK, and real 
programmers wear their climbing boots to work in case a moun- 
tain should suddenly spring up in the middle of the machine room. 

Real programmers don't document. Documentation is for simps 
who can't read the listings or the object code. 

Real programmers don't write in PASCAL or BLISS or ADA or any 
of those PINKO computer science languages. Strong typing is for 
people with weak memories. 

We do receive the odd piece of mail from time to lime. Thanks for 
relaying that strange bit of tongue-in-cheek programming advice. 
My addition today to Mr HiWs list is 'Real programmers do it in 
their drives! \ A bit wierd but it seems to follow the pattern. 

Help Required: I am looking for people interested in helping me 
type in the New Testament using a word processor. The processor I 
am presently using is SpeedScript, but another processor would be 
acceptable as long as the files are compatible, or could l>e con- 
verted for our use. 1 am using a Commodore 64, with a 1541 disk 
drive. 

After collecting, compiling and editing all the incoming data, 1 
would distribute the finished work to all the participants. If you are 
interested please call or write for assignments. 

Randal) J- Bernard 
Box 630 

Morencij Arizona 
85540 (602)865-3550 

Wow! What a doozy of a task. With a good database and indexing 
system though, it would be a terrific item. The ability to search the 



Real Programmers ; In light of my first letter, 1 thought I'd 

better send you this. I found it after many hours of research (i.e. 1 
got lucky looking through some old files). At any rate, I would 
really like to thank you for giving the ICLIG some free press. 

Anyway. I have enclosed my subscription for The Transactor, 
Nasty trick on your part. Raising the price so we gel a better 
discounL Gee, 1 wish I would have thought of thai sooner 

Kent Tegels 

Manager; Inlernafional Commodore Language Inlerest Group 

18112 North I 

Fremont. NE, 68025 



Real Programmers Don't Write Specs 



by Peter S. HUl 
NCA Corporation 



Astakenh-om The Special Character Set'- September 1, 1983 

Real programmers don't write specs - users should consider them- 
selves lucky lo get any programs at all and like what they geL 

Real programmers don't comment their code. If it was hard to 
write, it should be hard to understand. 

Real programmers don't write application programs; they program 
right down on the bare metal. Application programming is for 
feebs who can'l do systems programming. 
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New Teslomenf via disk woutd be ideal for report references. Let us 
know when it's done. 



The Drive Disaster: Re: Trans, Disk *10. A Frantic Wave-Off! I 
tried Improved 1541 Head-Cleaning Program\ DISASTER! Drive 
was 100% OK before using prg. Drive is now in shop for re- 
alignment! 

D,C. Kerrigan, Greenville. SC 

The program as listed in the magazine. Volume 6 fssue 05 page 6, 
is perfect, as is the copy on disk */ 0. Although we can assure you of 
this and feel confident thai the code was OK. your drive is still in 
intensive care. For this we offer two possible explanations, 

1) The Commodore drives have an awful habit of getting stuck at 
times, causing them to no longer function properly tor apparently 
no reason. The real crunch is that even after powering down, the 
drive doesn t return to normal. Often times this prompts people to 
bring their drive in for service. Unfortunately, this is often a waste of 
time and money. A simple initialization of a diskette in the 
offending drive will cure the problem. This strange occurence can 
be traced back to the drive ^ head being pushed out to an extreme 
position in either direction. Once in that position there exists a 
chance that the head will get stuck. Once stuck nothing but a drive 
initialization or o little internal push on the mechanism will help. 
Your drive may have been one of the unluckies thai gets stuck in 
extreme positions. 

2) The 'Improved Head-Cleaning Program ' article stated that the 
program was not to be run twice in a row, as the quote to follow 
explains: 

'The NEW at the end of the program is not an attempt at program 
protection, it's there as drive protection. This direct method of 
stepping the head does not update location $24. If the program was 
immediately rerun, the drive head could end up being stepped to 
track 35 or to bump up against the stop at track 0. " 

As a test, I deleted line 460 of the program then ran it for the first 
time. Following that I immediately re-ran the program to see what 
would happen. Around track 22 the drive mechanism started 
making an awful noise and continued to do so through track 35. 
Following this. I loaded in the directory. The drive chattered a bit 
initially but did finally load the directory. There was no permanent 
damage to the drive. My drive is almost new and in perfect 
mechanical shape. A drive that has had a few miles on it might not 
have faired as well, ff this tvas the cose. I stitl feel that an 
initialization would force the drive's head back into reality once 
again. Although running the program twice in a row would have 
been almost impossible as it was supplied on disk and listed in the 
magazine, it could hove been accomplished as I staled above. Your 
problem can probably be written off lo explanation *l. Just 
rememt>er, when in a bind, initialize. 



Verifizer Update: After recently retiring from 21 years of design- 
ing 'Little Black Boxes' for Cesna Aircraft Co.. 1 purchased a C-64- 



I am primarily interested in graphics and animation. What little I 
have learned so far seems to indicate that machine language is the 
way to go. In pursuit of this I have l)een attempting to learn what I 
can about ML but have been disappointed with what 1 have found. 
It seems to me that your publication has much to offer towards this 
goal. . . 

, . .One small problem: When using 'Verifizer*, the left character of 

the check signal hidesin the upper left corner of the monitor. How 

do 1 move Jt about two spaces to the right? 

W.D. Acker son, Wichita, Kansas 

As you have discovered. The Transactor lives for machine lan- 
guage. However, there are a few good books on the market to 
teach you the basics through extremes of talking to your computer 
in its mother tongue. One book, which I cant say enough good 
things atxtut. is Jim Butterfietd's Machine Language Book. Pub- 
lished by Bradey/Prentice-Hall. it 's an educational dream front to 
back. If you ever see it in a book store, do it the service of a quick 
look-over You will probably be impressed. 

About your Verifizer blues, there is a cure. Steve Walley. a reader in 
Sunnymead CA. ran into the same problem that you did, and as 
such sent us his modified version of Verifizer that prints two sets of 
Verifizer checksums on the screen. See 'Double Verifizer' in Volume 
6 Issue 06 on page 5. 

Sky Travel Support: 1 enjoyed the review of Sky Travel and 
would like to mention that 1 agree with your assessment of the 
program. What's more. I might just mention a couple of quick 
utilities: 

A seasoned veteran amateur astronomer friend of mine was so 
delighted with Sky Travel, he dumped his color computer system 
and purchased a Commodore 64, During December and January 
we used the program to locate Halley's Comei (as well as several 
other objects) with surprising accuracy. As a rank amateur astrono- 
mer, (1 barely know the correct end of a telescope to look in) I was 
able to locate the comet using hard copy from the program, a 
compass and binoculars. However, for those with sophisticated 
systems, the data generated for right ascenfion and declination 
seem to be right on the button {provided of course your location 
and times are correct). 

Several friends of mine who are also ham radio operators, are 
experimenting with using the program for moon bounce. The 
tracking feature and program's apparent accuracy make this a 
natural. 

1 have also used the program with my children (and myselO to 
become a bit more familiar with the southern New Jersey skies 
(when the garbage in the air is not too bad). 

It's a first rale package and one which ought to cost at least three or 
four times more than it does, , , an extraordinary buy for $29.95 - 
especially given what you can do with it and the information it 
contains. . . and especially given how much is chained for many 
poor packages. 
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Commodore did us a favour putting (hat one out. . . hope people 
do lake advantage of il. 

Peter R. Bent. West Deptford, NJ 

Frank Cooitz reads The Tronsoctor. Frank Covitz wrote Sky Travel 
I am pretty sure (hat Frank is smiling right about now. But only 
about the compliment, it seems that Sky Travel is often limes pretty 
difficult to locate. Frank wrote the package but Commodore kind of 
distributed it. At one point, right about the lime that my review was 
published. Sky Travel was close to being listed as missing in action. 
But a mixture of public pressure and common logic brought (he Sky 
Travel back from the dead into retail distribution once again. If for 
any reason anyone would like to get a copy of Sky Travel but can 't 
find it anywhere, then either phone or write Commodore direct, or 
if that doesn't work, drop us a line. We'll make sure that your 
request does not go unheard. Frank did too good of a job to allow 
Sky Travel to fade away so easily. 



LADS to PAL Conversion: My recent subscription to Ttie 
Transactor has gone far in rescuing tliis amateur from some sort of 
compuler oblivion. Other mags are just fine and often very helpful 
but games and ads gel in the way quite a lot. In The Transactor one 
finds a balanced, practically fat-free diet of pertinent, challenging 
and useful information. In sliort, Tm a very happy customer. 

Quite aparl from this statement of unbridled joy. I found a state- 
ment by Nick Sullivan on page l5of my first issue (Vol, 6, Issue 03) 
indicating that his Transbasic practically requires the use of a PAL 
assembler. 



Further to this, .OPT can t* forced to perform multiple directives 
of output. For example; 

.OPT 08, P4 ; would output the Object to unit 8 and Print the 

source listing to unit *4, 

To continue, you will notice a SYS700 at the start of all PAL source 
listings for the 64, This calls PAL so thai whatever follows will be 
treated as assembler source code. For other assemblers, this is 
either omitted or substituted with whatever command starts up the 
assembly process. 

To set the origin that you would like your code to be assembled, 
you would use a statement such as this: 

• = $C000 

The '•' represents the current program counter, so in effect you are 
telling the assembler that the prc^ram counter should equal 
SCOOO, Some assemblers use .ORG but the "splat" is more com- 
mon . 

,WORD and .BYTE 

These pseudo-ops allow either bytes to be assigned to RAM, or 
space to be set aside for the same. Most assemblers use the same 
conventions but I have seen .DW (define word, I guess) and -DS 
(define storage?). .WORD 0,0 is Ok as is .BYTE 0,1,2,3.4,5,6.7,8 
etc. They both allow RAM vectors to be set, or byte tables, or word 
tables. 



[ use a RAM-based version of Richard Mansfield's LADS/64 assem- 
bler and find it very dependable and easy to use. 

Without experience with any other assembler, I find it difficult to 
decide whether il would be possible to translate Transbasic for 
assembly with the unit I use. Your advice would be helpful al this 
point. 

R.G. Tischer, Starkville, MS 

To best help out everyone trying lo convert PAL format to Iheir own 
special brand of assembler, it might be best if I run down a few of 
the main PAL directives to be found in The Transactor They are as 
follows: 

.OPT 

This pseudo-op is a directive of output (OutPuT). There are a 
number of ways to use iL For example: 

.OPT N jOutputs nothing. Just checks assembly to see if errors 

exist. 
.OPT GO ;Outputs object to origin (memory). 
.OPT 08 ;Outputs object to device '8 (ie. OPEN 8,8.1, "Oifi- 

lename" before) 
-OPTP ;Outputs source listing lo the default output device 

during assembly 
.0PTP4 [Outputs source listing to device *4 (ie. OPEN 4,4 

executed before) 



.ASC allows strings to be placed in memory such as: 

ASC 'A STRING IN MEMORY^ 

Other than these few quicky psuedo ops, you will find we rarely 
use any of others, such as .FILE lo chain in other source files, .BAS 
to write Basic code within your assembly listing, and great scads 
more. For a more detailed synopsis of PAL commands, look in 
Karl's 'Complete Inner Space Anthology'. You will find that most 
RAM-based assemblers can take advantage of our source listings. 

TransBASlC. however, requires that modules be "merged'' to- 
gether. This is why they seem, at first glance, lo have odd line 
nunil>er sequences. You'll notice that certain "areas" ol each 
module are written in very specific line ranges. This is so they 
merge together with the same *'areas" of other modules. If your 
assembler 1 ) uses the BASIC editor to create source code files, or 2) 
has a merge feature, you should have no problem after making the 
previously mentioned adjustments. Otherwise you may have lo 
simulate the merging process. 

Don't forget, The TransBASlC Disk is now available and comes 
complete with the SYMASS assembler. For $9.95. TransBASlC 
becomes a totally self-contained utility. See our order card. 
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TransBASIC 
Installment ^9 



Nick Sullivan 
Scarborough, Ont, 



The TransBASIC Disk 

The TransBASIC Disk contains all of the modules published so 
for and it comes with its own assembler, SYMASS 3.1. Any 
combination of modules con be linked info BASIC with only a 
few simple steps. From start to finish is usually no more than a 
couple of minutes. . . even less once you get the hang of it. ft 
comes with a handy reference for just $9. 95. See the order card 
at center pa^e. 



TransBASIC Paris 1 to 8 Summary: 

Pari 1: The concept of TransBASIC - a custom command 
utility that allows one to choose from a library only (hose 
commands thai are necessary^ for a particular task. 

Part 2: The structure of a TransBASIC module - each TransBA- 
SIC module follows a format designed to make them simple to 
createand '^mergeable" with other modules. 

Part 3; ROM routines used by TransBASIC - many modules 
moke use of ROM routines buried inside the Commodore 64. 
Part 3 explains how lo use these routines when creating new 
modules. 

Part 4: Using Numeric Expressions - details on how to make 
use of the evaluate expression ROM routine. 

Part 5; Assembler Compatibility - TransBASIC modules are 
written in PAL Assembler formal. Techniques for porting them 
to another assembler were discussed here. 

Part 6: The USE Command - The command 'ADD' merges 
TransBASIC modules into text space. Howeoer. as more mod- 
ules are ADDed, merging gets slow. The USE command was 
written to speed things up. USE also counts the number of 
statements and functions USEd and updates the totals (source 
line 95) automatically. 

Part 7 - Usually TransBASIC modules don't need to worry 
about interfering with one another. When two or more modules 
want to alter the same system vector, however, a potential 
crash situation exists. Part 7 deals with avoiding this problem. 

Part 8 - Describes the flue modules for Part 8. 



TransBASIC Part 9 

This issue I want to do nothing more than present a few short 
modules that will bring this column into step with the new 
TransBASIC Disk, 



First off (Program 1) is String Synthesis, which contains a 
handful of specialized functions for generating special strings. 
The mosl instructive of these from a module-creator's point of 
view is the BIJ1LD$( function, which is a sort of glorified CHR$( 
that can take multiple PETSCII arguments, including ranges, to 
build special strings. 

The ability of BU1LD$( lo handle multiple arguments means 
that we have to be careful in managing the memory used for 
intermediate results, since each argument can itself be a com- 
plex expression with its own function calls, theoretically even 
including calls to BUILD$( itself. For this reason, BU!LD$( uses 
the two routines PSHTEM and PULTEM. which together take 
care of saving and restoring the temporary memory registers 
T2 through TG whenever a new argument is evaluated. 

This might be a good time to mention a couple of things that 
distinguish statements from functions with respect to zero page 
storage. One is that the locations $14 and $15 are used by 
statements only, never by functions, so you can expect data 
store in those locations to survive expression evaluations 
intact, no matter how complex the expression may be. The 
POKE statement, for example, stores the POKE address at $ 1 4/ 
ISbeforeevaluatingthePOKEvalue. Just remember never to 
use $14/15 forstorage when writing functions of your own, or 
you'll end up clobbering some innocent statement that calls 
your function. 

Another point is that both statements and functions have 
access to the TransBASIC storage area T2 through Tf). If you use 

this area and then evaluate an expression, do not expect the 
registers to be unchanged. Either push the values onto the 
stack with the PSHTEM routine, or one like it, or create a 
storage area within your own program code. 

The Delay module {Program 2) contains a single statement, 
DELAY, which hangs the computer for a specified number of 
hundredths of seconds. One thing you might want to adopt for 
your own programs is the check for the STOP key (JSK $A82C), 
which will break automatically to direct mode if the key is 
down. 



The Transactor 
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The Slide module (Program 3) contains the statement SLIDE, 
which lets you move a sprite by specifying a displacement 
(relative) rather than a destination (absolute), SLIDE will wait 
until the raster scan is off the current location of the sprite 
before allowing it to move: in most cases this eliminates the 
shearing effect that arises when the raster catches a sprite in 
motion. Another interesting thing about SLIDE is that you can 
specify the direction of movement either as an integer or as a 
string. The routine that interprets the input might be useful in 
other commands as well. 

The Make module (Program 4) contains the statement MAKE, 
which prints a specified number of repetitions of a string. You 
can use this to produce patterns and borders, and strings 
requiring repetitive cursor movement. 

The Centre module (Program 5) contains the statement CEN- 
TRE, which prints a specified string of up to 40 characters 
centred on the monitor screen. The handy thing about this 
command is that it ignores control characters in the string (RVS 
and colour control characters, for example) when deciding how 
far to indent the string- 



displacement. If the third argument is not present it is taken to 
be one. The second argument may be given as a number from 
to 3; as a string beginning with one of " n " , " e " , - s " . " w " ; 
or as a string beginning with one of "u", "r", "d", T. The 
strings may be in either upper or lower case, 

MAKE (Type: Statement Cat *: 048) 

Line Range; 4106-4142 

Module: MAKE 

Example: MAKE 22. "TRANSBASIC- +CHR$(13) 

The string argument is printed the specified number of times 

(up to 255) from the current cursor position, 

CENTRE (Type: Statement Cat *: 049) 

Line Range: 4144-4192 

Module: CENTRE 

Example: CENTRE 'A PAINTED SHIP UPON A PAINTED 

OCEAN ■ 
The string is centred on the current screen line. Control 
characters are ignored in calculating The offset from the margin- 
Strings longer than 40 characters (not counting control charac- 
ters) generate a STRING TOO LONG error. 



Finally, the Vocab Manager module (Program 6) contains two 
statements and two functions that will help in vocabulary 
searching applications like adventure games. The FILE state- 
ment, which is similar in structure to DATA, reads in alphanu- 
meric strings and stores them under the BASIC ROM. With the 
SCAN( function, you can find the position of a particular string 
within the vocabulary. 

When Vocab Manager is combined with other modules like 
Inline (in TransBASIC *8), First & BF$ (*7), and Strip & Clean 
{"A), many applications that depend on input parsing become 
much simpler to program. Not only that, but the strings stored 
in the vocabulary are unknown to BASIC itself, and will not 
create garbage collection problems. 



New Commands 

DELAY (Type: Statement Cat *: 026) 

Line Range: 3180-3214 

Module: DELAY 

Example: IF A = BTHEN DELAY 100: PRINT ^WHAT?" 

Execution is suspended for the specified number of hundredths 

of seconds (0 to 65535). The timing is not accurate for very 

small values. 

SUDE (Type: Statement Cat *: 043) 

Line Range: 3830-3928 

Module: SLIDE 

Example: FOR I = 1 TO 30: SLIDE 0/ E " : NEXT 

Example: SLIDE 3.2.84 

Example; Dl$ = ' U ' : SLIDE 7,DI$,2 

This command takes two arguments plus an optional third. 
The first is the sprite number (0-7). the second the direction in 
which it is to be displaced, and the third is the amount of 



HLE (Type: Statement Cat ': 050) 

Line Range: 41 94-4272 

Module: VOCAB MANAGER 

Example: FILE "SWORD,MACE,SPEAR, POISON-TIPPED 

BANANA 
The strings separated by commas are stored under the BASIC 
ROM starting at $A001 {40961 ). A pointer (FLPTR) points to the 
next free byte. Only alphanumerics are stored. Upper case 
alphabetics are converted to lower case. A vocabulary built by 
FILE statements can be searched with the SCAN( function 
(053), The only quote allowed in a FILE statement is the one 
that precedes the string data; also, no other statement may 
follow the FILE statement on the same line, 

INITFP (Type: Statement Cat*: 051) 
Line Range: 4274-4306 
Module: VOCAB MANAGER 
Example: INITFP 
Example: INITFP 43257 

The FILE statement pointer is initialized. If no parameter is 
present the pointer is initialized to address 4096 1. If a parame- 
ter between 40961 ($A001) and 49151 ($BFFF) is present the 
pointer is initialized to that address. The second form of the 
INITFP statement would normally be used only when a pre- 
pared vocabulary is loaded from disk, instead of being gener- 
ated from FILE statements within a program. In this case the 
FILE statement pointer would have to be initialized to the value 
determined with the FPLOC function (052) after the vocabulary 
was first generated. 

FPLOC {Type: Function Cat *: 052) 

Line Range: 4308-4314 

Module: VOCAB MANAGER 

Example: PRINT FPLOC-40961 

A quasi-variable returning the current value of the FILE 

statement pointer (40961 to 49151). 
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SCAN (Type: Function Cat ': 053) 
Line Range: 4316-4468 
Module; VOCAB MANAGER 
Example: IF SCAN(AN$)<83 GOTO 770 
The vocabulary compiled by the FILE statement is searched for 
an entry matching the argument string. Only alphanumerics 
are used in the comparison, and upper case alphabetic charac- 
ters are converted to lower case. The number of the first 
matching vocabulary entry is returned, counting from one. 
Zero is returned if the search is unsuccessful. 

ALPH$ (Type: Function Cat*: 021) 

Line Range: 2894-2900 

Module: STRING SYNTHESIS 

Example: PRINT LEFT$(ALPH$.13) 

A quasi- variable that returns a string consisting of the lower 

case alphabet. 

UCALPH$ {Type: Function Cat *: 022) 

Line Range: 2902-2908 

Module: STRING SYNTHESIS 

Example: PRINT ALPH$ + UCALPHS 

A quasi -variable that returns a string consisting of the upper 

case alphabet, 

NUM$ (Type: Function Gal '; 023) 

Line Range: 291 0-2926 

Module: STRING SYNTHESIS 

Example: A = AWAIT(NUM$) 

A quasi-variable that returns a string consisting of the digits 

from to 9. 

RVSS (Type: Function Cat *: 024) 

Line Range; 2928-2984 

Module: STRING SYNTHESIS 

Example: PRINT RVS${"RUfVIPELSTILTSKIN') 

Returns the argument string in reverse order (in this case, 

NIKSTLITSLEPMUR"), 

BUILDS (Type: Function Cat *: 025) 
Line Range; 2986-3098 
Module: STRING SYNTHESIS 
Example: A$ = BUILD$(36,48i57,32,65;70) 
Returns a string specified by its ASCI! components. Individual 
valuesmay be specified, as well as ranges. In the latter case the 
low and high ends of the range are separated by a semicolon. 
Thestring "$0123456789 ABCDEF" is returned by the exam- 
ple. 

Program 1 : STRING SYNTHESIS 



OE 
FH 
MH 
HH 
CF 
JH 
NJ 
Ml 
CB 



rem string synthesis (aug 29/84) : 

1 : 

2 rem statements. 5 functions 
3: 

4 rem keyword characters: 28 
5: 

6 rem keyword routine line 

7 rem f/alphS alph 2894 

8 rem f/ucalph$ ucalph 2902 



ser# 

021 

022 



OE 

BK 

MO 

Al 

EN 

KP 

HP 

El 

PD 

Gl 

LC 

CF 
KK 
MB 
OB 
EE 
HH 
KM 
DG 
MM 
PH 
CN 
IB 
OL 
CM 
PE 
EM 
DK 
MM 
AH 
EO 
AJ 
PK 
CD 
KK 
AH 
EG 
KE 
EH 
CM 
IM 
MB 
PL 
FB 
GK 
HB 
FC 
LP 
GK 
PA 
NN 
DF 
NC 
OH 
HN 
AO 
HO 
GD 
PG 
OB 
HK 
KG 
AH 
DL 
CG 



num 

TVS 

build 



2910 
2928 
2986 



023 
024 
025 



9 rem f/num$ 
10remf/rvs$( 
11 rernf/build$( 
12: 

13 rem u/pshtem (3100/060) 

14 rem u/pultem (3134/061) 

ISremu/kpttop (3156/062) 

16: 

1 7 fern = = = :^ = = = = ^ = = ^^ = ^ = = = = = = '-"'"' = = = - 

18: 

603 .asc - alph " : ,byte$a4. .asc " ucalph ' 

:.byte$a4:.asc " num " :.byte$a4 

604 .asc " rvsS ' : , byte$aS: .asc "" buildS " : .byte$a8 

1603 .word alph-1 ,ucalph-1 ,num-1 

1604 word rvs-l.butld-l 
2894 ucalph Ida #'A" 

#"Z" 
numl 



Idx 
bne 



2896 

2898 

2900; 

2902 alph Ida #"a^ 

2904 Idx #"z" 

2906 bne numl 

2908; 

2910 num Ida #"0" 

2912 Idx #"9' 

2914 numl sta t3 

2916 Ida #0 

2918 sta t2 

2920 Ida #$80 

2922 sta t4 

2924 bne bu2 

2926; 

2928 rvs jsr $aef4 

2930 jsr $b6a3 

2932 rvl sta $61 

2934 six t5 

2936 sty tS 

2938 jsr $b47d 

2940 tay 

2942 beq rv3 

2944 dey 

2946 Ida #0 

2948 sta 12 

2950 rv2 sty t3 

2952 Ida (t5).y 

2954 pha 

2956 Idy t2 

2958 Ida (t5),y 

2960 tax 

2962 pla 

2964 sta ($62),y 

2966 txa 

2966 Idy 

2970 sta 

2972 

2974 

2976 

2978 

2980 

2982 rv3 

2984; 

2986 build Idy #0 

2988 sty t2 

2990 sty 14 

2992 bu1 jsr pshtem 

2994 jsr kpfl 



;range of upper 
; case alphabet 



t3 

($62),y 
beq rv3 
inc t2 
dey 
cpy t2 
bcs fv2 
jmp $b4ca 



;range of lower 
; case alphabet 



;range of digits 



;eval expn chk T 
;crGate descriptor 
;save length 
;save pointer 
; to string 

;allocate memory 
;tesl string null 
;yes 

;index to last char 
;index to 1st chart 
;lower index save 
;jpper index save 
;get upper char 
;set it aside 
;get lower index 
;get lower char 
;set it aside 
;re-get upper char 
;£tore as lower 
;re-get lower char 
; and upper index 
;store as upper 
;whenlen(str) = 1 
;bump lower index 
;back upper index 
;test indices cross 
; not yet 
;return slrdescr 

;clear temp storage 



;pusht2-t6 
;eval byte to x 



Itw 



20 



AMV 19S61 Votum» T, iMua 01 





OK 


2996 


stx $67 ; 


and save 


EL 


3128 pha 






GA 


2996 


jsr pultem ; 


pull t2 - 16 


GC 


3130 rts 






KK 


3000 


Idx $67 ; 


retrieve byte 


CL 


3132; 






HH 


3002 


six t3 i 


and save 


PB 


3134 pultem pla 


;save return addr 




EL 


3004 


jsr $79 ; 


test range char 


LA 


3136 sta $71 






LA 


3006 


cmptf";" 




KM 


3138 pla 






MJ 


3008 


bne bu2 ; 


no 


CB 


3140 sta $72 






EA 


3010 


jsr pshtem ; 


push t2-t6 


DD 


3142 Idx #$fb 


;pulft2tot6 




LJ 


3012 


jsr kpftop ; 


aval byte to ,x 


FN 


3144 pitl pla 






AM 


3014 


stx $67 ; 


, and save 


GG 


3146 sta $7,x 






IB 


3016 


jsr pultem ; 


pull t2-t6 


10 


3148 *nx 






ML 


3018 


Idx $67 ; 


.retrieve byte 


Fl 


3150 bmi pill 






HN 


3020 bu2 


txa 


,test upper bound 


PK 


3152 bpl pht2 


;retrieve rts addr 




BK 


3022 


sec 


; >= lower bound 


M 


3154; 






CA 


3024 


sbc t3 




AG 


3156kpttop jsr $73 


;skip separator 




EJ 


3026 


bcc bu7 ; 


; no 


HN 


3158 kpfl da $33 


;push fretop ptr 




MO 


3028 


adc #0 


;test rangesize 256 


EN 


3160 pha 






LM 


3030 


bcs bu8 


; yes 


10 


3162 Ida $34 






DD 


3032 


pha 


;push rangesize 


IN 


3164 pha 






L 


3034 


adc t2 


;test resu t > 255 


OA 


3166 jsr $b79e 


;eval byte to ,x 




BN 


3036 


bcs bu8 


; yes 


IM 


3168 pla 


;pull fretop ptr 




NE 


3038 


sta t2 


;save result so far 


00 


3170 sta $34 






PC 


3040 


pla 


;pull rangesize 


MO 


3172 pla 






HE 


3042 


stx t3 


;save upper bound + 1 


PC 


3174 sta $33 






OP 


3044 


jsr $b47d 


;reservestr space 


£F 


3176 rts 






LH 


3046 
3048 


stx $22 
sty $23 


;create pointer to 
; string data 


AO 


3178; 










FE 


3050 


Idx 13 


;get upper bound + 1 


Program 2: 


DELAY 




PD 

LO 


3052 
3054 


sta t3 
Idy #$ff 


;save string size 
;init index to str 






^ 


HK 


rem delay (aug 25/84) 




DJ 


, 3056 bu3 


txa 


;char to store 


FH 


1 : 






FJ 


1 3058 


fny 


;bump index 


Al 


2 rem 1 statement, Oluncttons | 


1 


KG 


3060 


cpy t3 


;test = string size 


HH 


. 3: 






NN 


3062 


beq bu4 


; yes 


FO 


4 rem keyword characters: 


5 




MJ 


'■■ 3064 


sta ($62), y 


; store character 


JH 


5: 






JL 


3066 


dex 


;next char down 


NJ 


6 rem keyword routine 


line ser# 




NJ 


3068 bcc 


bu3 


; bran oh always 


JO 


7 rem delay dela 


3180 026 




DF 


3070 bu4 


bit t4 


;testalph$etc 


MH 


6: 




i 


FO 


3072 


bmj bu6 


;yes 


HD 








oe 


3074 


jsr $79 


;test more to build 


OH 


10; 






EC 


3076 


cmp#"." 




DH 


106,asc 'delaY" 






LO 


3078 


bne bu5 


; no 


IG 


11 06 .word dela- 1 






FD 


3080 


jsr $73 


;skip comma 


KB 


31 80 dela jsr $ad8a 


;eval num expr 




OM 


3082 


bne bul 


; branch always 


CO 


3182 jsr $b7f7 


? 1 

;convtOfntat$14 




EG 


3084 bus 


jsr $aet7 


; check close paren 


OK 


3184 del Idy #$0e 


;GOunt1/100sec 




JG '■ 


3086 bu6 


da 12 


;create descriptor 


MC 


3186 de2 Idx #$85 






KP 


3088 


idx $62 




NG 


3188 de3 dex 






DA 


3090 


Idy $63 




PF 


3190 bne de3 






KF 


3092 


jmp rvl 


;reverse the siring 


DO 
AG 


3192 dey 
3194 bne de2 






HP 


3094 bu7 


jmp $b248 


;'illegal quantity' 






OK 

AJ 

EA 

IC 

LH 


3096 bus 

3098; 

3100pshterr 

3102 

3104 


jmp $a571 


;'slring too long' 


FN 


3196 jsr $a82c 


icheck stop key 




1 da #3 
jsr $a3fb 
pla 
sla $71 


;check6stack 
; bytes free 
isave return addr 


IC 
MG 
PG 


3198 Idx $14 
3200 bne de4 
3202 Idy $15 


idecrement counter 




NO 


3106 


^m ^^^m ^^^ ^m ^^^ ^^^ ^^ ^^^ ^ ^^ ^^^ ■ 


FN 


3204 beq de5 


;countdown complete 




1 T ^H^' 

MK 


3108 


pla 

sta $72 




OA 


3206 dec $15 






EP 


3110 




PG 


3208 de4 dec $14 






NM 


3112 


Idx #4 


;push 16 to t2 


IG 


3210 jmp del 


;not done yet 




HC 


3114pht1 


Ida t2,x 


■ 4 


KK 


3212de5 rts 






IK 


3116 


pha 
dex 




EA 


3214; 






1 1 \ 

FO 


3118 










EH 


3120 


bpl phtl 




Program 3: 


SLrDE 




KG 
AL 


3122 pht2 
3124 


Ida $72 
pha 


-rpfripwp rtc arjfir 








1 1 ^Ll 1 w V w 1 lO dv vi 


HL 


rem slide (aug 25/84) 


F 




OM 


3126 


Ida $71 




FH 


1 : 




Hm IVtkwoctor 




21 




Julvt9S6:V0lunw7,lMU*O1 | 



^^ 


Al 


2 rem 1 statement, functions 




KE 


3884 


cic ; 


add disp 




HH 


3: 




NA 


3886 


Ida $d001,x ; 


toy-pos'n 




FO 


4 rem keyworcJ characters: 5 




EE 


3888 


adc t3 






J^ 


5: 




FG 


3890 


sta $d001,x 






NJ 


6 rem keyword routine line ser # 


AC 


3892 


rts 






JL 


7 rem s/slide slid 3830 043 


EG 


3894 s 3 


cmp#1 ; 


test dir right 




MH 


8: 




MB 


3896 


bne sl5 ; 


no 




DP 


9 rem u/chkspr (3664/037) 




OJ 


3898 


Ida SdOOO.x ; 


add disp 




CM 


TO rem u/raschk (3676/038} 




NN 


3900 


cic ; 


to y-pos'n 




GL 


1 1 rem u/direct (3930/044) 




CF 


3902 


adc t3 






KN 


12 rem d/powers (3694/039) 




CH 


3904 


sta $dOOO.x 






Bl 


13: 




IH 


3906 


bcc sl6 ; 


don't cross seam 




MC 


14 rem this moduTe also contains one 


LH 


3908 sl4 


Ida $d010 ; 


toggle msb 




NO 


1 5 rem ine from set sprites — : 


3624 


GF 


3910 


eor power s.y ; 


. of x-pos'n 




El 


16: 




OB 


3912 


sta $d010 






PD 
Gl 






GD 


3914 


rts 






18: 




NG 


3916s35 


Ida SdOOOpX 


; subtract disp 




Dl 


llO.asc -slidE" 




NG 


3918 


sec ; 


; from x-pos'n 




GJ 


1110 wordsid-l 




CI 


3920 


sbc t3 






PB 


3624 xs3 imp $b248 ; 


'illegal quantity' 


El 


3922 


sta $d0O0,x 






JO 


3664chkspr jsr $73 ; 


skip byte 


JF 


3924 


bcc sl4 


; cross seam 




00 


3666 chs1 |sr $b79e ; 


eval expr to ,x 


LK 


3926 sl6 


rts 






HL 


3668 cpx #8 i 


test valjd sprite 


OM 


3928; 








OF 


3670 bcs xs3 ; 


no 


LO 


3930 direct 


jsr $ad9e 


;eva direction 




EE 


3672 rts 




JA 


3932 


bit $0d 


jtest expr type 




AN 


3674: 




DO 


3934 


bmi dil 


; string 




JD 


3676 raschk phia 




OB 


3936 


jsr Sb7a1 


;eval numeric to .x 




FO 


. 3678 rasi Ida $d012 ; 


get raster pos'n 


LK 


3938 


cpx #4 


;test < 4 




FG 


3680 sbc $d001,x ; 


test above sprite 


KE 


3940 


bcs di5 


; no 




IF 


3682 bcc ras2 ; 


yes 


C 


3942 


txa 


ireturndir in .a 




JB 


3684 cmp#$2b ; 


test below sprite 


EF 


3944 


rts 






EB 


3686 bcc rasi ; 


no 


MP 


3946 dil 


jsr $b6a6 


; create descriptor 




FN 


3688 ras2 pta 




KJ 


3948 


tay 


;lest length zero 




GF 


3690 rts 




MD 


3950 


beq di3 


;yes 




CO 


3692; 




CB 


3952 


Idy #0 


;get first char 




FJ 


3694 powers byte 1,2.4,8,16, 


32,64,128 


ED 


3954 


Ida ($22), y 






GO 


3696; 




CO 


3956 


Idy #$0f 


;te5t valid dir 




HF 


3830 slid jsr chsl 


eval sprite # 


NG 


3958 di2 


cmpdirs,y 






MJ 


3832 stx $14 


.save 


JE 


3960 


beq di4 


;yes 




MO 


3834 jsr Saefd 


;cfieck for comma 


FD 


3962 


dey 






LL 


3836 jsr direct 


;get direction 


Ml 


3964 


bpl di2 






PA 


3838 phia 


;pu3h direction 


EH 


3966 di3 


jmp $af08 


; "syntax* 




NN 


3840 Ida $14 


;pushsprtte^ 


KC 


3968 dt4 


tya 


;reduce to numeric 




OH 


3842 pha 




LF 


3970 


Isr 






Nl 


3844 Ida #1 


;save default 


NF 


3972 


Isr 






NN 


3846 sta t3 


; disp acement 


CH 


3974 


rts 






EC 


3848 jsr $79 


;test for comma 


BE 


3976 di5 


jmp $b248 


;'illegal quantity' 




KG 


3850 cmp#","' 




AA 


3978; 








EO 


3852 bne sll 


ino 


CD 


3980 dirs 


.asc "UuNnRrEeDdSsLWw" | 




KH 
ON 


3854 jsr $b79b 
3856 stx t3 


;evai displacement 
; and store 


EA 


3982; 














JF 


3858 sll pla 


;pull sprite* 




Program 4: MAKE 




Bl 


3860 lay 
3862 asl 


;mask index .v 










L^ 1 

NP 


;position index ,x 


AM 


rem make 


(aug 25/84) 


4 




DO 


3864 tax 




FH 


1 : 








PB 


3866 pia 


;pull direction 


Al 


2 rem 1 statement, functions 




GE 


3868 jsr raschk 


;wait for raster 


HH 


3: 








JD 


3870 bne s12 


;direction not up 


EO 


4 rem keyword characters: 4 






AB 


3672 da $d001,x 


;subtract disp 


JH 


5: 








CC 


3874 sbc t3 


;from y-pos'n 


NJ 


6 rem keyword routine 1 


jne ser # 




HF 


3876 sta $d001,x 







7 rem make 


mak ' 


4106 048 




CB 


3878 rts 

— — ^- -■- jb ■ ^^ ri J wr\ 


j_ ± 1" jj __ __ 


MH 
HD 


8: 

9 rem ==- = - 








HO 


3880 sl2 cmp #2 


;test dir down 








A 


3882 bne s3 


; no 


OH 10: 






1 Th#Tranaoclor 


23 


I 




Ju»vT95d:^Mun*7,lttlM01 | 





LI 


1 1 1 .asc " makE " 




LP 


4190ce4 imp $a571 






CF 
FD 


1111 ,wordmak-1 

4106 mak jsr $b79e ; 


eval # repetitions 


GN 


4192; 










OC 


4108 txa ; 


,push 


Program 6; VOCAB MANAGER | 




Kl 


4110 pha 
4112 jsr $aefd 










CA 


.check for comma 


CL 


rem vocab manager (aug 29/84) 




MM 


4114 jsr $ad9e 


,eval string 


FH 


1 ; 






BA 


4116 jsr $b6a3 


,make descriptor 


JH 


2 rem 2 statements, 2 functions 






HJ 


4118 lay 


;string length 


HH 


3: 






FC 


. 4120 pla 


;pull# repetitions 


CE 


4 rem keyword characters: 20 






AH 


4122 sta 13 


; countdown register 


JH 


5: 






DN 


4124 tya 




. NJ 


6 rem keyword routine 


ine ser # 




PI 


4126mak1 Idx t3 


;get remaining reps 


KM 


7 rem s/file fil 


4 1 94 050 




FD 


4128 beq mak2 


;af done 


IE 


8rem3/initfp infptr 


4274 051 




OE 


4130 dec 13 


; count down 


JL 


9remf/fpoc tpio 


4308 052 




AE 


4132 pha 


; print string 


JD 


10 remf/scan( scan 


4316 053 




DG 


4134 jsr $ab24 




PH 


11 : 






AL 


4136 pla 




OH 


12 rem u/cHchr (2560/003) 






JF 


4138 jmp maki 




PE 


13remu/usfp (2620/006) 






DN 


4140 mak2 rts 




CN 


14 rem u/cifnum (4092/047) 






EK 


4142; 


*JTRE 


NN 

E 

PD 


15remd/flptr (4470/054) 

16: 

17 rem =--- = ■ = <-== = = = = = = = = = 








Program 5: CEI 










Gl , 
DN 


18: 
113.asc"filEinitfP" 






FD 


rem centre (sept 4/84) 




FH 


1 : 




OB 


eiO.asc ''fploCscan'':.byte$a8 




At 


2 rem 1 statemenl. funclions 


PF 


1113.wordfil-1jnfptr-l 






HH 


3: 




EC 


1610 .wordfpo-1,scan-1 






GO 


4 rem keyword characters: 6 


1 


HC 


2560cifchr cmp#$5b ; 


test atphabetlc 




JH 


5: 




OK 


2562 bcc cici ■ 


and It so return 




NJ 


6 rem keyword routine 


ine ser # 


LK 


2564 do ; 


carry set 




:kg 


7 rem centre cntr 


4144 049 


FM 


2566 bcc cic2 






1 

MH 


8: 




OB 


2568 cici cmp#$41 






HD 






FJ 


2570 cic2 rts 




yTtJlTf -^n^M = 3 = = = = == = - = - = : 






OH 


10: 




CI 


2572; 






PO 


112, asc 'centrE" 




GK 


2620 usfp Idx #0 ; 


convert .a/.y 




IL 


1112.wordcntr-1 




AH 


2622 stx $0d ; 


to floating point 




MP 


4144 cntr jsr $ad9e 


;eval string 


DN 


2624 sta $62 ; 


from unsigned 




PB 


4146 jsr $b6a3 


; make descriptor 


00 


2626 sly $63 ; 


16- bit integer 




NF 


4148 tay 


;index from str end 


ON 


2628 Idx #$90 






HJ 


4150 pha 


;push string length 


HM 


2630 sec 






MG 


4152 Idx #0 


;# printab e chars 


NH 


2632 jmp $bc49 






PK 


4154 eel dey 


;back up index 


AM 


2634; 






MA 


4156 cpy #$ff 


;test done 


AE 


4092c;fnum cmp#':" ; 


test numeric 




AA 


4158 beq ce2 


;yes 


LM 


4094 bcc cinl ; 


and if so return 




CI 


4160 Ida ($22),y 


;get a character 


HK 


4096 cic ; 


, carry set 




JJ 


4162 and n7f 


iclear high M 


CO 


4098 bcc cin2 






OM 


4164 cmp#$20 


;test Ctrl char 


KP 


4100cin1 cmp^^O^ 






HM 


4166 bcc eel 


; yes 


NL 


4102 cin2 rts 






KD 


4168 inx 


; bump counter 


OH 


4104; 






PO 


4170 bne eel 


jbranchaways 


NC 


4194fil cmp#$22 


;test leading quote 




FK 


4172 ce2 txa 


;test counter <= 40 


CD 


4196 bne fi4 


; no 




PM 


4174 sec 




FM 


4198 Idy tiptr 


,make pointer to 




NK 


4176 sbc #$29 




iJ 


4200 da flpIr + 1 


; first free byte 




MC 


4178 bcs ce4 


; no 


01 


4202 sty $22 






DJ 


4180 eor #$ft 


;negate and halve 


DD 


4204 sta $23 






CB 


4182 Isr 


; result 


OM 


4206 fil Idy #0 


isetup index 




KM 


4133 Idx $d3 


;test ogical line 


AP 


4208 jsr $73 


;get a character 




KJ 


4184 cpx #$28 


; 40 or 80 


GP 


4210 bcc fi2 


;numericsok 




U 


4185 bcc ce3 


;40 


HE 


4212 cmp#0 


;testend of me 




OP 


4186 ado #$27 


;add 40 (carry set) 


GE 


4214 beq fi3 


, yes 




OP 


4187 ce3 sta $d3 


; set cursor horiz 


MP 


4216 cmp#$22 


;test embedded qte 




BL 


4188 pla 


;pun string ength 


NE 


4218 beq fi4 


;yes 




PF 


4189 jmp $ab24 


;print string 


GH 


4220 cmp#\' 


;test end of word 



Hm noMociQf 



JiriV t9S6: V3lum« 7, totu* 01 



OE 


4222 


MN 


4224 


OB 


4226 


FD 


4228 fi2 


MB 


4230 


AK 


4232 


HH 


4234 


JF 


4236 


GB 


4237 


GP 


4238 


FF 


4240 


ON 


4242 


PC 


4244 fi3 


HL 


4246 


EP 


4248 


AF 


4250 


MP 


4252 


ED 


4254 


PC 


4256 


MM 


4258 


Ml 


4260 


AH 


4262 


LA 


4264 


NF 


4266 


IL 


4268 


LE 


4270 fi4 


GC 


4272; 


LO 


: 4274 jnfptr 


0) 


4276 


CL 


4278 


OJ 


4280 


JK 


4282 


GN 


4284 


PK 


4286 


JK 


4288 


OA 


4290 ifpl 


DF 


4292 ifp2 


CD 


4294 


MF 


4296 itpS 


HO 


4298 


HM 


4300 i1p4 


LM 


4302 


ML 


4304 


IE 


4306; 


GO 


4308 tpio 


FJ 


4310 


OF 


4312 


AF 


4314; 


NH 


431 6 scan 


GL 


4318 


HC 


4320 


EE 


4322 


FD 


4324 


CG 


4326 


PJ 


4328 


GG 


4330 


MJ 


4332 


HC 


4334 


EE 


4336 


IN 


4338 


NA 


4340 


LE 


4342 


Al 


4344 


1 OL 


4346 



beq fi3 

jsr cjfchr 

bcc fil 

tax 

sta 

inc 



($22),y 
$22 



#$80 

($22),y 

$23 



bne fil 
inc $23 
Ida $23 
cmp#$c0 
bne tH 
jmp $a435 
pha 
dey 

dec $23 
txa 
era 
sta 
inc 
pla 

cmp # \ ■ 
beq 1i1 
Idy $22 
Ida $23 
bne ifp4 
jmp $at08 

beq ifp2 
jsr $ad8a 
jsr $b7f7 
cmp#$a0 
bcc ifpl 
beq ifp3 
cmp#$cO 
bcc ifp4 
jmp $b248 
Idy #1 
Ida #$aO 
cpy #0 
beq ifpl 
sly flptr 
sta flptr + 1 
rts 

Idy flptr 
tda flptr + 1 
jmp ustp 



]sr 

jsr 

sta 

sta 

txa 

pfia 

tya 

pha 

Ida 

jsr 

stx 

sty 

pla 

sta 

pla 

sta 



$aef4 
$b6a3 
t3 
t4 



t3 

$b47d 
$24 
$25 

$23 

$22 



;yes 

;lest alphabetic 
; no 

;save byte 
;store to buffer 
;bump pointer 

jtestend of buffer 

; (ScOOO) 
; no 

;'oul of memory' 
;push new byte 
ipointto previous 
; byte in buffer 
: get old byte 
;selhigh bit 
;store to buffer 
;tix pointer 
;pull new byte 
jtest comma 
: yes 

; store new pointer 
; value to flptr 
; branch always 
; 'syntax error' 

;no param 
;evai param 
;convert to integer 
;test>= $aOOO 
; no 

: = is special case 

;tesl<$cOO0 

:yes 

i'illegai quantity' 

jdefault tnit 

; to $a001 

;test = $a000 

;yes 

;init flptr 



;get flptr value 

;return as f1. pt. 

;eval str, test) 
;get descriptor 
; store length 

;push data address 



;reserve memory 

;makeptrlo 
; reserved space 
:make ptr to 
; argument data 



AA 


4348 


dec 1 


LB 


4350 


Idy #$ff 


ND 


4352 


Idx #0 


f^C 


4354 seal 


dec t4 


Jl 


4356 sca2 


iny 


GG 


4358 


cpy t3 


DB 


4360 


beq sca4 


BP 


4362 


Ida ($22), y 


IL 


4364 


jsr cifnum 


HB 


4366 


bcs sca3 


Al 


4368 


and #$7f 


OG 


4370 


jsr cifchr 


FN 


4372 


bcc seal 


KO 


4374 3ca3 


sta {$62.x) 


MP 


4376 


jsr bmp62 


NN 


4378 


bne sca2 


BD 


4380 sca4 


stx t5 


AO 


4382 


stx t6 


FN 


4384 


bit t4 


KC 


4386 


bmi scall 


NC 


4388 


Ida #1 


PN 


4390 


sta $62 


OH 


4392 


Ida #$aO 


JP 


4394 


sta $63 


OJ 


4396 sca5 


inc t5 


EC 


4398 


bne sca6 


IH 


4400 


inc t6 


BH 


4402 sca6 


Ida $63 


FB 


' 4404 


cmp fipir + 1 


MP 


4406 


bne sca7 


GM 


4408 


Ida $62 


HF 


4410 


cmp flptr 


HL 


4412 sca7 


txa 


NA 


4414 


tay 


EE 


4416 


bcs seal 2 


PL 


4418 


dey 


LP 


4420 scaB 


iny 


DB 


4422 


Ida ($62),y 


FM 


4424 


cpy t4 


JG 


4426 


beq sca9 


DP 


4428 


cmp($24),y 


JG 


4430 


beq sca8 


OP 


4432 


bne scalO 


FA 


4434 sca9 


sbc ($24),y 


DD 


4436 


cmp #$80 


GG 


4438 


beq scall 


JP 


4440 seal 


Ida ($62.x) 


Dl 


4442 


php 


JF 


4444 


jsr bmp62 


CC 


4446 


pip 


EJ 


4448 


bpl scalO 


00 


4450 


bmi sca5 


FE 


4452 seal 1 


Idy t5 


01 


4454 


Ida t6 


AL 


4456 seal 2 


inc 1 


UJ 


4458 


jmp $b391 


GA 


4460bmp62 inc $62 


IB 


4462 


bne b62 


BC 


4464 


inc $63 


DF 


4466 b62 


rts 


KO 


4468; 




PA 


4470 fiptr 


.word$aO01 


;00 


4472; 





; switch out basic 

;init spare index 
;decrarg bytecntr 

test end of word 

yes 

get arg byte 

test numeric 

yes 

conv cap to lower 

test alphabetic 

yes 

add to new string 

bump new str ptr 

branch always 

reset word counter 



test srch str null 

yes 

in it vocab pointer 

to$a001 



;bump word counter 



set carry if vocab 
pointer at end 
of buffer 



;,x = ,y = 

end of buffer 
set up pre-incr 
bump pointer 
get vocab byte 
test last arg byte 

yes 

test arg = vocab 

yes 

no 
test last vocab 

byte 

yes 

advance vocab 

pointer to 

end of word + 1 



;try next word 
;get word counter 

switch in basic 
return as fL pt. 
bump ptr at $62/63 
return z clear 



;ptrtofilebufr 



} Jh9 



2ft 
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Longer Life 

For Your 64 and 1541 



With lh<? prii.e of Commodore 64 computers at one-fourlh what it was 
when the machines hrsi hit Ihe market, the temptation \o replace an older 
64 with one oi the later models is strong. Bui ior those ol us willing lo break 
out the screwdriver and soldering iron, there are some minor improve- 
ments pDs,sible lo prolong the life ol our compuiers and disk drives. Nole 
that all the following instructions will invalidateyour warranty, if any. and 
anyone who is not comfortable with the idea of digging into electronic 
equipment should go lo the next article. 

The first modificalion To Ihe Commodore 64 is to improve its video quality 
, . thisonlyapplieslolhoseof us who have Ihe earlier model C-64swilh a 
five pin video output jack. The addition of some of the luminance signal to 
the cornposite colour video will usually sharpen the picture noticeably on a 
toiour nionitor Note Figure I. Ihe illustration of the top centre of Ihe C-64 
main printed circuit board 

Between the five pin video connector and the aluminum box containing 
the TV modulator will be a resistor (usually 470 ohms). As shown in Figure 
1, this resistor wilt connect Ihe solder pad labelled number two to Ihe 
ground at the edge of the board, passmg over point I'. Using a small 
soldering iron (25 Watts), undo Ihe ground end of the resistor. Then solder 
a 150-ohm quarter- watt resistor to point one. Attach Ihe other end of that 
150-ohm resistor to Ihe still-connected end of Ihe original resistor at point 
Iwo. Then, probably using additional wire, re-atlach the other end of the 
470-ohm resistorly Ihe ground, all the while avoiding solder bridges, bare 
wires touching each other, and so on. 

By the way, if you are using a monochrome video monitor on your C-64, a 
better display results from taking the luminance output instead of the 
normal video output containing colour information to your video display 
You will have to move a wire in the five-pin DIN connector from pin four 
lo pin one. Again, both of these hints are appropriate to those older C-64s 
which have a five-pin video connector. 

Some C-64s came from the factory without a heat sink attached to Ihe five 
volt rcgulalor chip which is mounted next to the joystick ports. That 
regulator supplies power lo the video circuitry and runs rather hot. The 
addition of a heat sink, along with heat transfer compound will really help 
the regulator do its job. Look next to the joystick ports on the right side of 
the board for a small device on three legs soldered close to the corner of the 
video and system shield box. If a flat black slotted hunk of metal about one 
inch square is bolted or riveted to the regulator, you are OK. If not, the 
regulator will be stickmg up wilh a hole through its lop just begging you to 
help it cool down. The parts list suggests a possible heat sink which will 
probably require ,some bending before it will properly fit. 

A couple of ways lo keep your 1541 (or 2()3ILP) disk drive cooler are in 
order now. The hard work involves taking the drive completely apart and 
adding heat sink grease to helptransfer heat from the big black heat sink at 
the back of Ihe drive to Ihe frame of the unit. I have found this helpful in 
both old and new 1541 drives, to help get the heat from Ihe drive and 
twelve voll regulators spread around inside the unit, instead of conceEi- 
Iraled near the 6502 and 6522 chips. 

Nole again, you will have to remove the plastic top of the drive, the RF 
shield on lop of the main PC board, and then remove the PC board itself to 
get to Ihe part of the healsink where you can apply the heat transfer 



Robert V. Davis 
Salina, KS 



compound This is not for the faint of heart. Keep paper towels handy U: 
clean up any heatsink grease other than that on the proper surfaces. 

Finally, a fool or so of 5/16 inch wooden dowel rod cut into two lo three 
inch lengths with four matching rubber feel can be (with some sanding) 
forced into the holes on the bottom of the 1541 where the screws holding 
Ihe top of Ihe case reside. (Ends ofpencifs a>ork great for tfn-if -Ed.) These 
legs will raise the drive and allow improved air circulation through it, 
prolonging Ihe life of the electronic internals. 

There you have some ways of keeping your system in good health at a 
minimum of expense. Good luck! 

Paris list: 
(Radio Shack Part numbers lisled) 

150 ohm 1/4 wall resistor '271-1312 
Heatsink '276-1363 

Heatsink grease '276-1372 

5/16 wooden dowel rod (4 two-inch leni^lhs) 
5/16 inch rubber feel for ends of dowel 

(Four brand new pencils, cut to the proper length, may be used to replace 
the dowels and rubber feet) 
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Matrix Manipulator 



Richard Richmond 
Springfield, Ohio 



Machine language program to set one array equal to another. 



Because operations in BASIC must be handled through the 
interpreter, some tasks can be very slow. For example, the 
following BASIC line can take a very long time: 

fori=1 lon:a(n) = b(n):next n 

Many operating systems for larger computers have machine 
language (ML) routines that allow matrices or arrays (arrays are 
jusl one-dimension matrices) to be manipulated like non- 
dimensioned variables. In such a system, the above example 
could be written like A = B. For large, multi-dimensional 
arrays, or for repetitive operations, the time saved with such a 
utility could be very significant. 



tions on the names that you can use. except for the normal 
BASIC restrictions. 



What The Program Does 

To perform the operation in the above example, use SYS 51800 
" A,B " with the array names in quotes (to avoid conflicts with 
other ML utilities that start at 49152, this program is moved up 

to )ust below where the BASIC wedge would be loaded). Any 
properly dimensioned arrays may be used. The only restric- 
tions are that both arrays must be of the same type and 
dimensioned the same size. The utility will not check for this, 
only that both names are in the array table. Unlike BASIC, the 
subroutine will not automatically dimension an array. Instead, 
an error message is printed and the program halts if both arrays 
have not been dimensioned. 

As stated earlier, any type of array can be used and the 
subroutine does recognize the difference between types. For 
example, A,A% and A$ would be treated as different arrays jusl 
like in BASIC. When the subroutine returns to BASIC, each 
element of the first array will be the same as the corresponding 
dement in the second array. The second array will not be 
affected. Note, the order in which the arrays are dimensioned is 
not important, only that the arrays are dimensioned before 
calling the routine. Also just to avoid possible confusion, I have 
been using A and B as my examples but there are no restric- 



How The Program Works 

For those interested in ASSEMBLY programming, the com- 
mented listing in Program I should be useful. The listing is 
compatible with the lEA Assembler, but can be easily adapted 
to other Assemblers. In general, the following tasks are per- 
formed; ROM routines are used to find the location and length 
of the siring in the calling SYS command. The two array names 
are then separated and the appropriate type designator is 
added. In BASIC, all arrays are stored in a block of memory. 
The starting address of this block is stored in locations $30,$2f. 
This address is loaded and the array memory area is scanned to 
hnd the starting address of the first array passed from BASIC. 
Some juggling of the array names then takes place so that the 
same portion of code can be used to find the address for the 
second name. 

The length of the second array (actually the offset to the 
beginning of the next array in the storage area) is then found. 
The second array Is then stored byte by byte in the first array. 
This simple byte for byte operation is why the routine is able to 
handle any type of variable, h is also the reason that the 
programmer must use similar arrays. If the first array was 
shorter the the second, the program would write past the end of 
the first array with possibly fatal results! 



Typing It In 

Program 2 is a ML loader program for the routine. As usual, first 
type it in and save it. With a disk in your drive^ run the 
program. When the program is finished, you will have a file on 
your disk; "MATRiXML". To use the routine type LOAD " 
MATRIXML\8,i and (RETURN). Then type NEW,(RETURN) 
and load your BASIC program. 
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To illustrate Ihe speed of this routine type in and run the 
following program: 



Matrix Manipulalor BASIC Loader 



OK 

DF 

BG 

Gl 

tH 

CF 

AA 

JJ 

BP 

AL 

DE 

PJ 

KL 

GA 



100dimb(1000),d(1000) 

1 1 print " beginning basic loop " 

120t1=ti 

1 30 for i = to 1 000:b(i) = d(i);next 

■T40t2 = ti 

1 50 print " end ot basic loop 

1 60 print " beginning ml loop 

170l3-ti 

180sys51800 "b,d" 

190t4-ti 

200print"endof mlloop 

21 print " basic = " ;t2-t1 ; " jiffies 

220pnnt"nil = ";t4-t3; ^jiffies 

230 stop 



This program just sets D equal to C. The actual values in the 
array are of no interest in this case because we are only 
interested in the relative speeds ot the two methods. On my 
machine, BASIC takes 425 jiffies and ML only 11. That means 
that the ML routine is 20 times faster than BASIC, If the arrays 
are changed to integer (C%,D%) the times are 429 and 9, 
making ML almost 50 times faster! Different size arrays would 
yield different time savings. For all but the very shortest arrays, 
the ML routine should provide a significantly faster operation. 



Future Additions 

At present. 1 am working to expand this routine into an entire 
matrix operations package. Some of the other operations that I 
am working on include: 

1. Initialize the array - set the entire array equal to a user 
defined value. 

2. Four function math operations - add, subtract, multiply or 
divide an array by a variable or by another array. 

3. Find maximum or minimum values of an array- 
Such a package would be useful in graphics or other programs 
where large arrays of data must be worked with. These addi- 
tional operations will included in a single program and be 
reached through different entry points. 



GA 

BE 

HH 

KO 

HP 

EF 

NC 

FB 

PC 

EA 

AE 

AL 

DJ 

AL 

LJ 

LB 

BH 

LO 

GK 

Nl 

FC 

JO 

DA 

PA 

OB 

OF 

IC 

LD 

KD 

MG 

DG 

BL 

IL 

LF 

10 

Fl 

DK 

JF 

OP 

AC 

FL 

NG 

FN 

EP 

MM 

00 

GN 

PC 

DF 

IP 

10 

JC 

AA 

PB 

CB 

DH 

GL 

IN 



44, 


144, 214. 


65 


32, 


78. 79, 


84 


69, 


78, 83, 


73 


0, 


32, 158, 


173 



30 hi = int(51 800/256) :lo = 51 S00-hi^256 

40 open 1,8,1, " 0:matnxml " 

50 prinl#1 ,chr$(lo)ctif$(hi); 

60fori = 51800to52203 

70 read da;pfint#1 ,chr$(da); 

80 next 

90 close 1 

lOOdata 76, 117,202,128. 

110 data 82, 82, 65, 89, 
120 data 32, 68, 73, 77, 
130 data 79, 78, 69, 68, 
140 data 32,163,182,134,251,132,252,170 
150 data 160, 0, 140, 173, 2, 140, 171, 2 
160dala177,251, 141, 172, 2,200,202, 177 
170 data 251, 201, 47,144, 6,141,173, 2 
ISOdata 76,141,202.201, 44,240, 20,201 
190data 37,208, 8,173,172, 2, 9,128 
200data141,172, 2,173,173, 2, 9,128 
210datal4l.173, 2,200,202,177,251,201 
220data 47,144,248,141,170, 2,200,202 
230data240, 32,177,251,201, 47,144, 6 
240data141,171, 2, 76,190,202,201, 37 
250 data 208, 8, 173, 170, 2, 9, 128, 141 
260 data 170, 2, 173,171, 2, 9, 128, 141 
270data 171, 2, 160, 3, 185, 139, 0, 153 
280 data 91,202,136, 
290 data 3, 153, 139, 
300data167, 2,165, 
310data133,251,160, 



16,247,169, 0,160 
0,136,208,250, 141 

48, 133,252, 165, 47 
2, 177,251, 133,253 



320 data 200, 177,251,133,254.160, 0, 177 
330 data 251, 205, 172, 2,208, 8,200, 177 
340data251,205, 173, 2,240, 62,165,252 
350data 24,101,254,133,252,165,251, 24 
360 data 101 , 253, 133, 251 , 144, 2, 230, 252 
370data165, 50,197,252,208, 6,165, 49 
380datal97,251,240, 3, 76, 2,203,162 
390 data 95, 160,202, 134,251,132,252, 160 
400data 0,177,251,240, 7, 32,210,255 
410data200, 76, 73,203, 32,226,203,162 
420data 26, 76, 55,164,165,251,141,168 
430 data 2, 165,252, 141, 169, 2,169, 1 
440 data 205, 167, 2,240, 28,173,170, 2 
450data141,172, 2,173,171, 2,141,173 
460data 2, 173, 169, 2, 133, 140, 173, 168 
470dala 2,133,139,238,167, 2, 76,250 
4S0data202, 173, 169, 2, 133, 142, 173, 168 
490 data 2,133,141,160, 3,177.141,133 
500 data 252, 136, 177, 141,133,251,165,142 
510data 24,101,252,133,254,165,141, 24 
520 data 101, 251, 133, 253, 208, 2, 230, 254 
530 data 169, 4, 101, 141, 133, 141, 208, 2 
540 data 230, 142, 169, 4, 101.139, 133, 139 
550data208, 2, 230, 140, 160, 0, 177, 141 
560data 145, 139, 230, 141, 208, 2, 230, 142 
570 data 230, 139,208, 2, 230, 140, 166, 141 
580 data 228, 253, 208, 234, 1 66, 142, 228, 254 
590data208, 228, 160, 3,185, 91,202.136 
600 data 16,250, 96, 
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Matrix Manipulator Source Code 



100 ;ml routine to seia = b 

1 1 ; where a.b are arrays 
120 ;wn|[en by 

130 .richard richmond 
140 ,309 rosewood ave 
150 .spnngfield.ofiio 45506 
160,(513)322-7650 



170. 


= 


$ca5B 


;Sys5l800 "a.b 


180 


imp 


srari 




190^page 


= 


- 




200- 


f 


.+4 




210 two 


^ 


$02aa 




320 one 


;= 


S02ac 




230 chrout 


= 


$Wd2 




240 fuota 


= 


¥ 




250 


asc 


" affa,y not dimensioned" 


260 


byleO 




270 Slat! 


> 


w 


;Lise rom rouline 


280 


isr 


Sad9e 


;lo gel siring 


290 


jsr 


$b6a3 




300 


stx 


£lb 


.address 


310 


sty 


Sic 




320 


lax 




.length 


330 


Idy 


#too 




340 


sty 


or>e + SOi 




350 


Sty 


two + $01 




360 rirsJ 




* 


,tjrs! character 


370 


Ida 


(Sfb),y 




:wo 


sia 


one 


; 1st array 


390 ab 


^■r 


> 




400 


my 






410 


dSM 






420 


Ida 


{I'b),y 




430 


sta 


one + $01 


,2nd char 


440 


bcc 


skip 




450 


sta 


one + $01 




460 


imp 


ab 




470 skip 




• 




480 


beq 


second 


.comma 



490 check for S.^' in last character 
500. name bil 7 selin both bylesil 
510 , array is integer 
520, bit 7 in 2nd byte sei if 
530 , array is string 



540 


beq 


second 




550 


cmp 


^S25 




560 


Dne 


ski pi 




570 


Ida 


one 




560 


ora 


fr$80 




590 


sia 


one 




eOOskipl 


= 


' 




610 


Ida 


one + $01 




620 


era 


#$80 




630 


sia 


one + $01 




640 second 


= 


■ 




650 repeal for second argumeni 


660 


my 






670 


dex 






680 


Ida 


($fb),y 




690 


cmp 


#$2f 




700 


bcc 


second 




710 


sta 


two 




720sec2 


± 


- 




730 


my 






740 


dex 




; Check lor 


750 


beq 


done 


; siring end 


760 


Ida 


(S"b).y 




770 


cmp 


#$21 


;check tor 


780 


bcc 


ac 


;alphanum 


790 


sta 


two + $01 




800 


jmp 


sec 2 




aioac 


^ 


* 




820 


cmp 


#E25 




830 


bne 


ad 




840 


Ida 


Iwo 




850 


ora 


#$80 




860 


sia 


two 




670 ad 


. 


V 




660 


Ida 


two + $01 




890 


ora 


#$80 




900 


sia 


two + £01 




910 done 


= 


- 




920 ,done Aith names now save part 


930 ot zero page eb-Be 





940 



Idy #$03 



950 szpage 


TL * 


960 


Ida $008b.y 


970 


sta zpage.y 


980 


dey 


990 


bpl szpage 


1000 


Ida #$00 


1010 


Idy #$03 


1020 dear 


^ 4 


1030 


Sia $008 D.v 



1040 dey 

1050 bne dear 

1060 sta 502a7 

I070donel = - 

1080 .store address o' beginning 

1090 ; of array storage infc'b 



-initial cnir 



noo 

1110 

1120 

1130 

1140dO 

11&0 

1160 

1170 

iiao 

1190 
1200 
1210 



Ida 
sta 
Ida 
sia 

idy 
Ida 

sta 

inv 

Ida 
sta 
Idy 



$30 
$1c 
$2f 
$tb 

• 

#$02 

ltd 

C$fb),y 

Sfe 

»S00 



, offset lo 



,offsei hi 



1220 ,load 1 St chatacier of array 

1230 , and compare ^ith 1 st o' 

1240 . argument 

1250 ^da C$tb).y 

1260 cmp one 

1270 bm d2 

1280 my 

1290 Ida :$fb),y 

1300 cmp one + $01 

1310 beq tj3 ;jmpwhen 

1320, array found 

1330 d2 - • 

1340 Ida Sfc 

1350 cic 

1360 ;add hi byte offset to address 

1370 adc Sfe 

1380 sta $lc 

1390 Ida $ib 

1400 cIc 

1410 add lo byte off sei lo address 

1420 adc $ld 

1 430 sia Sfb 

1440 bcc -dA 

1450 inc ifc 

1460 d4 

1 470 ^check if end ol array 

14B0 :storagehas been reached 

1490 Ida $32 

1500 cmp $fc 

1510 bne d3 

1520 Ida $31 

1530 cmp Sfb 

1540 beq out 

1550 , branch to error routine 

1 560 ; if end of array storage 

1570 d3 

1580 fnp dO 

1590 jmp back and clieck nexl array 

1600 out - - , beginning of error routine 

1610 , print error message 



1620 

1630 

1640 

1650 

1660 error 

1670 

1680 

1690 

1700 

1710 

1720 return 

1730 

1740 

1750 



ldx#>word.ldy#4word 



six 
sly 

Idy 

Ida 

beq 

)sr 

iny 

imp 

isr 

Idx 

imp 



$fb 
Sfc 
#$00 

(S"b).y 
return 

chrout 

error 

* 

reset 
#Sla 
$a43? 



1760 : rom routine lo pnnt error 
I770b3 



,rom rouline 



; restore zpage 

.exit through 



1780 

1790 

1800 

1810 

1820 

1830 

1840 b4 

1850 

1860 



store address oi lifsi array 

n argument 



Ida 
sia 
Ida 

sta 



$fb 

S02a8 

$fc 

S02a9 



Ida flEOl 
cmp £02 a 7 
1870 "implobS 2nd lime 
IBBO- through loop 
1890 beq D5 

1900 . [ransler second argument 
1910 . address to 1 si storage 
1920 Ida Iwo 

1930 sia one 

1940 Ida two + $01 

1 950 sta one + $01 

1 960 , Iransfei address of first 
1970 . argument lo zero page 
l980,ai$8c.S8b 
1990 Ida S02a9 



:check 
; pointer 



2000 


sia S8c 


2010 


Jda S02a8 


2020 


sta £8b 


2030 


inc £02a7 


2040 increment pomier and 


2050 , branch back lo find address 


2060 . of second argumeni 


2070 


imp done! 


2080 b5 


^ - 


2090 address of second argument 


21OO.sioreda!$8e,$0d 


2^^0 , length of arrays stored 


2l20.at$fc.£ft> 


2130 . only second array length 


2140; used 


both arrays musl have 


2150 , dimensioned the same size 


2160 


Ida $02a9 


2170 


sta £8e 


2180 


Ida S02a8 


2190 


sia $8d 


2200 


Idy #$03 


2210 


Ida ($ed).y 


2220 


sta Sfc 


2230 


dey 


2240 


Ida {S8d).y 


2250 


sta $lb 


2260 


kJa $8e 


2270 


cic 


2280 ending address of second 


2290 array 


stored at 


2300 $le.$ld 


2310 


sia Sfe 


2320 


Ida $Bd 


2330 


CiC 


2340 


adc Sfb 


2350 


sta $ld 


2360 


bne b7 


2370 


inc Sfe 


2380 b7 


z * 


2390 , Skip 4 bytes 


2400 , this skips past the name and 


2410 offset byles m array storage 


2420 


Ida #$04 


2430 


adc $8d 


2440 


sta S8d 


2450 


bne b8 


2460 


jnc Sae 


2470 be 


E * 


2480 


Ida #$04 


2490 


adc Seb 


2500 


sta $8b 


2510 


bne b9 


2520 


inc tac 



2530 b9 - . 

2540 , now ready lo begm iianslenng 

2550 ; data Irom 2nd array to 1 st 
2560 Idy #$00 

2570 bl 3 - • 

2560 ,load data byte by byte 
2590 Ida fS8d),y 

2600 store m Isl array 
2610 sta [$8b).y 

2620 , mciement pointer - 2nd 
2630 inc S8d 

2640 bne blO 

2650 inc see 

2660 blO 

2670 , increment poinler - 1st 
2680 mc S8b 

2690 bne bll 

2700 mc $8c 

2710 bll 

2720 , compare fw inter with end 
2730 . end of 2nd array 



2740 


Idx sad 


2750 


cpx Sfd 


2760 


bne bl3 


2770 


Idx S8e 


2780 


cpx Sfe 


2790 


bne bl3 


2800 resel 


= ■ 


2010. when 1i 


nished, restore 


2820 . i&o page memory and return 


2830 . 10 basic 


2840 


Idy «$03 


2850 restorer 


= • 


2860 


Ida zpage,y 


2870 


dey 


2880 


bpl restorez 


2890 


rts 


2900 end 





Tb« Trontactor 
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Jim Butterfield*s Complete CI 28 Memory Map 



A few issues back we published an abridged C128 RAM/ROM map as 
prepared by Jim ButTerfieJd.Aflhe lime we were quile pleased to have rhe 
privilege of publication. Allhough the maps were not in any way complete, 
Ihey were good enough to ^tart many hungry programmers on their way 
withtheCI28. 

Afier many months of careful and very well calculated pestering on our 
part, Jim has finally consented to allow us to publish his yet unreleased 
C12S Map. This opportunity comes as a form of prelude to Jim's yet 
unreleased new version of, "Machine Language For The Commodore 64 
And Other Commodore Computers". Jim has carefully re-written it to 
include the C128, and as is usual with Jim's books, articles, videos, TV 
shows, etc., etc, etc.. his Machine Language book takes the reader by the 
hand and gently force feeds knowledge without any painful infliction. 

Jim's new book is expected to be released in April of 1986, published by 
Bradey, a division of Simon and Shuster. As with his last f^achine 
Language book, this version will be available most everywhere through 
many of the major book stores. If after this incredible bit of JB propaganda 
yoLi remain unmoved, let me assure you that I am not being paid lor Ihis, 
except forabottleofSteam beer he bought me in San Francisco (for which I 



paid him back promptly). If ever you get the chance, have a read . . you 
will not be disappointed. - RTE 



COMMODORE 12S Memory Maps 



Jim Butte rfield 



These maps apply to the machine when used in the 12SK mode When 
used in the 64 mode, the machine's map is identical to that of the 
Commodore 64. 

Architecture: "Bank numbers" as used in Basic BANK and the MLM 
addressing scheme are misleading; in fact, they are more correctly 
"configuration numbers ", Bank D shows RAM level 0, which contains 
work areas and the user's Basic program. Bank 1 also shows RAM, (his 
lime (for addresses above hexadecimal 0400) level 1 which contains 
variables, arrays, and strings. Other "banks" are really configurations, 
with various types of ROM or I/O overlaying RAM. Thus, bank 15 (the 
mostpopular)tsROMandl/OcoveringRAMbankO. Bank 14, however, is 
ROM and the character generator overlaying RAM bank 0. Architecture is 
set so that addresses below $0400 reference bank only. Other bank 
switching (more complex than the simplified 16-bank concept) is accom- 
plished via storing a mask to address SFFOO, or calling up pre-stored 
masks by writing to 1FF0I-FF04. 



All BAnka: 

0000 
0001 

0002-0004 

0005-oooy 
ooo^ 

OOOB 

oooc 

OOOD 

nooE 

OOOF 

0010 

0011 

00i2 

0013 

0014 

0015 

OOlfi-0017 

OOIH 

0019 -002^ 

0024 -0027 

0028 -002C 

O02D-0O2E 

Of)2F -0030 

00 J I -f«)32 

ooaa -m'M 
0035 -oo;ifi 

0037 -00^ 
0039 -OOJA 

003B -oo:ic 

003D-(mE 

003 F -0O1I) 
0IJ4I -(MM 2 
0043 -(HM4 
0045 -(KM 6 
0047 -(MM 8 

004^ -m^ 

004B -(XMC 

004 D -(ME 
004 F 
OOI^O -00!^!^ 

ms-mi 

0063 

0064 -(KJh7 
0068 
0069 

n06A -tm? 

0070 
0071 

0072 -<»073 
0O71 -0075 



The Commodore CI 28 Memory Map as of February 1986 



i>^ 



I 

2 
10 

II 

12 
13 
H 
IS 
16 
17 
18 
19 
20 
21 
2^ 
24 
2& 

:jg 

40 
15 
■17 
■in 
51 
53 
55 
57 
59 
61 
6:1 
US 
67 
6M 
7t 
73 
75 
77 
79 
SO 
fifi 

99 

lOO 
104 

105 
ll)(^ 
12 
13 
14 
11^ 



niiil 



-23 

-35 
-3^ 

44 
-46 
-48 
■50 
'52 
'54 
-56 

58 
-60 
-fi2 
-64 
■66 
■68 
■70 
■72 
■74 
'76 
-78 

-85 
-88 
-98 

-lOJ 



I/O diretdiiiial rtqister 

l/0|"iM, siiiiildr 111 C64 

SYS addri^v., MLM regisiers (.SR, PC) 

5YS. MLMr<f^N<frWve{A,X,V,SR'SP) 

Stan-qiirjle^ fl-i^ 

TAB culiimn s^ve? 

0-IXJAD, l^VEHIFY 

[nput buffer pomttr/numbeT or ^jb^ciipls 

Dtfauli niV flA({ 

Ty|jf FK-sinnij.OO-nLinierk 

Type. 80 = inttKfr. 00 - l\Qa\\r\s^ poini 

DATAscan/LlSTquutif/niemoryflds 

Subscrpt/FNx fidq 

= JNPUT,140 = GEH .t9S = RWD 

ATN sign/Compari^in evalu^iuil lldij 

CiirrttH 1/1) prcijrpi flag 

ln)pi<er vjlue 

Puiriler. temiKjrarv siring stark 

,'Stack fur frinporary siririffi 

Udhly pmiiler area 

ProducI drea tor niijltiplitalnin 

Poinier slari-of-BASlC (for bank (}) 

PoinlPT slflM-of-varidl>lft[bd[ik 1} 

Poinier sran-ol-arrays 

Poj flier end-of-arrays 

Poinier sfnni^-'iiEiiaselJnoviritrdown) 

Uolilysinnijpuiiilt? 

Pdnler liniil-ol-iTH'iTn>ry(baiik I] 

Currenl BASIC luit nuinher 

Te:ilpoiiilcr BA.SIC work poini 

Uliiily Pointer 

Cuirenl DATA line number 

Cmreni DATA address 

Input veclur 

Current variable name 

fiirrenl variable address 

Viirjcible ptimiei fur FOR/NRXT 

¥-Mve. op-Hvt, BASIC poiiilet Mve 

Companson symbol dccumjlalor 

MiiLellaneous work area, pointers, dnd vj on 

Jump vector lor lunclions 

Miscellaneous numeric mirk arta 

Aauni'l exponeni 

Aaiiin'l" maniisia 

A£.cum'l"Mi^n 



Serieji cvaluarioii (^trsrani potnrer 
iDfi-in Aceum'2 exponenl.dndioon 

Sign compari Sim, Alc'I versus "2 
Aceum'l lo-order {rounding] 
1)5 Casselle buffer leri/Serieripomlei 
117 A ulo Ime number mcremeni 



0076 

0077 

0078 AM.m 
007A -007C 
0O7D-O07E 
007 F 

0080-ooai 

0082 
0083 
0084 
0085 
0086 

0087 -onsA 

008B -OOSF 

0090 

0091 

0O92 

0093 

0094 

0095 

0096 

0097 

0098 

0O99 

009A 

009B -ooye' 

0O9D 

0O9E-O09F 

0OAO-O0A2 

00 A3 -00 A B 

0(»AC-l)G^\D 

OOAh-OGAF 

OIIBO -OGBl 

00B2 -IHIB3 

00B4 -IHIBh 

O0B7 

O0B8 

O0B9 

OOBA 

OOBB-OOBC 

OIJBD-0OC5 

O0C6-0OC7 

00C8-00CB 

OOCC-OOCD 

OOCE -OOCF 

OODO 

OODI 

O0D2 

0I1D3 

00O4 

00D5 

00D6 



143 



IJ8 

114 

120-121 
122-124 
1:^5-126 

127 

]2N-iay 

130 

131 

132 

133 

134 

135- 

13y- 

144 

145 

J 4ft 

147 

148 

14y 

liO 

151 

152 

153 

154 

1 55-1 56 

157 

IS8-15y 

160-162 

163-171 

172-173 

174-175 

176- 

178- 

\m- 
!8:i 

184 
18,5 

186 

187-188 

189-197 

I98r-199 

200-203 

204-205 

206-207 

20» 

209 

210 

211 

312 

213 

3M 



177 
179 
IS2 



GraphicBfldg 

Color source number 

Tem|)orar\' couniers 

DSS de'itrijjror 

BASIC pseudo-Slack poinier 

Flag 0.^ direct mode 

[>03, USING woik flags 

Slack pomter ^aveliir errori^ 

Graphic color source 

MultitolDf 1(1) 

Mi]lricolo]2(2} 

Cr-iphK bresToiind color (13| 

Cr^phitstiileficror^. X&Y 

Grjpfiic work valuer 

SialuswujdST 

Keyswiich lA; STOP and RVS flag,^ 

Timini^conslanl fcirl,ipe 

Work ^dlut. nionilnr. LOAD 'SAVE 

Serial OLiipui deferred characier flag 

Seiidl deferred tbaiacier 

C^i^cfie i^iirk vaiue 

RH]i^ler,sdve 

How nidny ojfii fik's 

[npul device, normdlly 

Ourpui CMD device, normally 3 

Tapt parjiv, oiji pur- received flag 

I/O niessafp^ l92 = all,64 = efroTs,0:ni 

Tapeenor pomiers 

Jiffy Clo<.fcHf^L 

I/O work bylci 

Poinier lape buffer, srollin^ 

Tape end adds/ End of progrjin 

TapelimingconsJanis 

['uniii'r siancJ Tape buffer 

k.S-232,Misc work values 

Numfjer ol ch^raclprs in hie name 

Current logical file 

Current seiond^rv .address 

Current dt^'ice 

Pointer lo hie naiT>e 

I/O work poinleri 

Banks I/Cda1a, filename 

RS-232 inpul/oulpul bulftr rjddre^H.',s 

Keyboard decode pointer (bank 15) 

Prim ilrin^ work poinier 

Number of characters in kevbiwrd buffer 

r 

Number of programmed chari* wailing 

Programmed ke\' characler inde* 

Keyshifl flag O-iloaIiiII 

Kev code. S8 if no key 

Key code ?<8 if no kev 

Inpul from, screen /frum keyboard 



00D7 
00D8 

ooDy 

OODA-fHiDF 

IJOEO-OOEl 

UOE2-O0E3 

0OE4 

0OE5 

Q0E6 

0OE7 

0OE8 -01)E9 

00£A 

ODEB 

OOEC 

OOED-OUEE 

OOEF 

DOFO 

con 

0OF2 
0OF3 
0OF4 
0OF5 
00F6 
O0F7 
0OF8 
00F9 

OOFA -OOFI-" 
0100 -01 FF 
0100 -013E 
0100 -0124 
0125 -0138 
0200 -02AO 
02A2-02AF. 
02AF-02BD 
02M-02CC 
O2CD-02E2 
02E3 -02 FB 
02FC -02 FD 

0300 -0301 
0302 -0303 

0301 -0305 
0306 -0307 
0308 -0309 
030A -030B 
030C -030D 
030 E -030F 
0310 -031 1 
0312 -0313 
0314 -0315 
0316-0317 
0318-0319 
031 A -031 B 



215 
316 

217 

218-233 

224-225 

226-227 

228 

229 

230 

231 

232-233 

234 

235 

236 

237-238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

218 

249 

250-255 

256-511 

256-318 

256-292 

293-312 

512-672 

674-fiM6 

687-701 

702-716 

717-738 

739-763 

76^1-765 

768-769 

770-771 

772-773 

774-775 

776-777 

77^-779 

78i»-78l 

782-783 

784-785 

786-787 

788-789 

790-791 

792-793 

791-795 



40/80 columns, = 40 columns 

Graphics mode code 

Cliiraclerbdse 0^ROf^,4^KAM 

Misc work area 

Poinlei 10 screen line/cursor 

Color line pointer 

Cur rem screen bo[4om margin 

Cjrreni .screen lup margin 

Curreni screen lefl margin 

Curreni screen riglilm,irgm 

Inpnlcuruir log jrow, column} 

^nd-of-line for inpui poinier 

Pi^sklinnol cursor on screen line 

Hov. where fursor lives 

Wamnium sciei-n liifes, colun^ns 

Curreni I/O chardtler 

Previous cbaracler [innled 

Cfiaiatier n>lor 

Temporal^ cobr save 

Screen reverse Hag 

O^dlredeiJisoi.H.se programmed 

Number of INSRPTs [jutsifliidmg 

255 = Aulu Inseil enabled 

Te>;l mode lockoul 

0^ Scrolling eiiablled 

Bell disable 

Not U'ied 

Processor sidck area 

Tape erroi log 

LX IS work area 

f'HINT/USING work area 

BASIC I npul butler 

Bank peek ^ubrouline 

Bank pukesifhroiinne 

Bank f [inipare subroutine 

JSR 10 another bank 

JMP to aiiotfiei bank 

Funclion execute book |4C78| 

Error me»a^ link 

BASIC warm start link 

Crunch BASIC tokens link 

Print lokena link 

Slarl new BASIC L'odelink 

Gel .jriihmeiti: eLemeni link 

CiiJiieh FE hook 

List FF hook 

Execute FE hook 

I'nused 

IRQveclor|FA65| 

Break inlerrupl vector [B(M'3| 

SM\ interrupt vet lor [FA40] 

OPEN ^■eclor iEFBD] 



The Transoctor 



29 



JiJy 1966: \tolume 7, ts*ue Ol 



[)3ir - 


-03 [D 


7%-75)7 


CLOSF. vector IFIKNJ 


OAOF 


-OAIT 


2575-258:^ 


PS-2:i2wurk values 




1214 -1217 


4628-4631 


DO work 


pointers 


asiF 


-1)3 IF 


798-799 


1 r 

Set-input VKlor FUkf 


0AI8 




258-1 




RS-U J^ receive poiiller 




1218 -I21A 


46:S2-4631 


U5R program |Limp [7D28 


032(J ■ 


-03111 


fiOO-BOl 


Sel-ou([iiil ' 


.«.tDr[F!4C 


0AI3 




2585 




RS-232inpLJlpoiiHer 




I21B -I21F 


1635-4639 


RNDsees 


1 value 


U322 - 


'0323 


R0?-a03 


Resloie l/IJ 


v*x-rijr F-^26| 


OAIA 




2586 




RS-^^2lransmilpomler 




1222 


1642 


Sound tempo 


0321 


-0325 


m\-m'h 


Inpiil vtLliii , 


' KF06 


OAIB 




2587 




RS-3^2^ndpomler 




122F 


1655 


Music secinenrer 


0326 


-0327 


m^-m 


Oiiipjl vrtiorlEF79l 


OAID. 


-OAIF 


2588-2590 


S]t^p ^^unidown, FFFF = diwble 


I2i1 -12:^7 


1660-1663 


Note midi^ 


0328 


-032y 


Ym-m) 


Teil-ST0Fvrt(oi[F()6E 


0A20 




2592 




Ke^hK>dTdbuflersize 




1239 -t23E 


1665-1670 


Currcnl em' [lallern 


(B2^ 


'032B 


aio-811 


llKTveflor EERB] 


0A2I 




2593 




Screen Ireeze W^ 




123F -1270 


4 h7 1-1720 


Envelope 


■ tables . 


(B2C ■ 


■032D 


MI2-815 


Afx>rf]/OvHtorlF222 


0A22 




2594 




Kevre|>eat l28-aiUl = norw 


I23F -1248 


1671-16^) 


ADISR) patlern 


(B2R ■ 


-0^2K 


MM-815 


Maihin^ Unij N^urtiior link 


0A23 




2595 




Ke\ repeal Itmin^ 




1249 -1252 


46BI-16EH) 


(ADISR patlern 


OBO ■ 


-03 J I 


HI6-817 


LUAD link 




0A21 




2591 




Ke\" repeal pause 




1253 -I25C 


463i-47m 


Waveform pill tern 


0332 


-0333 


Hffl-819 


SAVE link 




0A25 




2595 




GraphkVleKllogtllelBlcIl 




125D -1266 


4701-4710 


Pulse wfdih pdtif-rn 


0334 


-03*5 


H20-82t 


CorilTol [lull' (low) link 


0A26 




2596 




4(]-t>jt cursor iTKKle 




1267 -1270 


4711-4720 


Pulse widlll III patlern 


033G 


-0337 


822-^32 


Huh ASCII 


<(Kle tnik 


(JA27 


-0A2A 


2597-26lHt 


lC^(-()tbLmk values 




1271 -1271 


4721-4271 


hole; XK.AX.voliiifie 


0338 - 


-0339 


>^24-M25 


F^sr sixiui'PK'e link 


0A2B 




im\ 




HJk-col cursor mode 




1275 


i725 


Previous volume imai^ 


034A 


-03S3 


812-851 


Kevlxjard buffer 


0A2C 




2602 




^0-co]vide<3t[)l)ia]rtia((e 




1276 -1278 


1726-4728 


Collision IRQ ta^k t^ble 


0351 
035 E 


-035D 
-036! 


852-861 
862-8(i5 


Tdl> slo[i liil.'T 
Line wr-ip tiils 


0A2E -UA2F 


26(16-2607 


8Ucol pages- screen, tulyf 




1279 -127E 
127F 


1729-1734 
1735 


Collision |R(J addres"; tables 
Collision mask 


0362 ■ 


-036E 


Hh6-875 


LogicdLlileldl'le 


0A1O 


-0A5A 


2624-265IJ 


40/8(1 poinler swap EElt-FA 




1280 


1736 


Colli '.101 1 


wikrk value | 


036C 
037fl 


-0375 
-037F 


H76-MH5 
886- H95 


De\'K:e numt'iT tahli' 
Secondary dddrevs tahle 


0A60 


-0A6D 


265<i-2fifi9 


^l)/8t>daia^wapl354-J6l 




12B1 


4785 


PEN work value 


03fi0 


-03yE 


8%-y26 


CHRGETsLibrouCme 


OACD 




275? 




PAT courier 




1300 -I7FF 


4861-6113 


Unused 




0386 




902 


CHRGOTenfr>' 


OACl 


-0AC4 


2753-2756 


POM Pliysical Address Tdl>le 




1800 -IBFF 


6141-7167 


Reserved for key funclions ] 


03AR 


-03AA 
-nlB6 


927-938 
939-950 


Fetch Irum RAM bank 
Fetrhfrfim RAM bank 1 


OBOO -OBBF 


281 ft- 3007 
3ffl)8-307l 
3072-3583 
3,584-1095 
1096-1105 


Casselle butter 




ICOO -FBFF 
ICOO -1FR 


7168-61511 BASIC RAfrfmenn)r>'[te^l) 
7I6B-SI86 Video (cxiM matrix (hi-res| 


03B7 

U3C0 
03C1J 


-U3BF 

-03CH 
-03D1 


951-959 
960-968 
969-977 


Fet(.hfri>ni RAM bank 1 
Fetch from RAM bank 
Fetch from RAM bdnkd 

■ r ■ 


OCt-U 

OCtXl 
OEOO 
1000 


-KDrr 
-ODFF 

^FFF 
-1009 


RS-?:i2]npul oulpul buffers 
Sysfenisimtes (56-63) 
Prt^ftrdmrrted key lengths 




1FF8 -IFFF 
2000 -3FFF 
4000 -FBFF 
Bankl: 

0100 -FBFF 
Bulk M: Sun 

DOOO -DFFF 


8187-8191 Sprite iden1ities[hi-res) 
8192-16383 Screen memt^ (hi-re^j 
16384-frl51l BASIC RAf^memor>Oit-res) 


03 D2 
03 D5 
03D6 
03DA 


-03 [»4 

-03uy 


978-980 

^S2'985 
!iH6 


Llnuvd 

CurTeiilBANKlorSVS.PEEK 
INSTR wufk vdlui^ 

Bank location fiirMrini^ 


1 00 A 
1100 
1131 
II6F 


-lOFF 
-LL30 
'Il6e 


1106-1351 
1352-1400 
■HO 1-1462 
4463 


ProEtrcuTinvrtl key delimdons 
DOJ>Co[|]niaiidsiasmgarea 
(iraphics work area 
Trace mode FF-OTi 




1021-64511 Basie variable?!, arrays, si rni[^ 
le u Etenh 15, twiow, pxnpl: 
53218-57313 Character generiror R0f«1 


03DB 
03DF 

03E(^ 
03 E2 

OiFO 
FBN) 


-03DD 
-03EI 

-03 F6 


987-989 

991 

992-993 

994 
995 

HH)R-I011 
65281 ^ 


Sprite work bytes 
Actuin'l tJvertlow 
Sprile work bylei 
Graphit/TeM backgrounds 
Graphic/Miilli cotnr log 
DMA link cn-Ji- 
MMU conhi^u ration rpfti'Upr 


1170 
1174 
1178 
n7A 

n7c 

1I7E 
1IDG 


-1173 
-1177 
-L197 

-117B 
-I17D 
-UDS 
-1IF-5 


4461-4167 
4468-4 n 
4172-4173 
4174-4175 
1176-1477 
117H-1565 
1566-1581 


Renumberm^ pointers 
Directory work pointers 
Graphics irtdex 
Float -fixed vecMr 819F 
Fu^^l- float vector 793CJ 
Sprite moTitfnt^les (8 X 11 bylei) 
Sprite X/Y positions 


Bonk IS: 

1000 -CFFF 
DOOO -D02E 
moo -D1IC 

D50a 

D51)1 -D504 

D505 -D50fi 


1638^1-53217 BOM; BASIC 
5321^53294 lO-col video cbip8564 

51272-51300 SiD sound chip b5BL 

Hemor\' ^Bnagement Unil ^Tl2 

51528 MMU primary' configrei(isler 

51529-51532 UMLI preionfui reftNers 
51533-51534 MMU mode, r^m rfT^isiirs 


1 1 If 1 

FR»2 

KF04 

KFOI -KFOI 

BukO; 

0100 -07 E7 


Bank! 
Bank 14 

BankHovnPAM 1 
65281-65^84 MHUIuddCLiiilisregislers 

1024-2023 40-™tiiinii v.ivfi\ memory 


11E6 

1IE7 

1IE9 

IIEB 

IIEC 

MED 

UEE 


-IIF.B 
-IIEA 

-IIFF 


1582 

4rtK3-!584 

158.^-4586 

4587 

4588 

4589 

4590-1607 


SpnleX-bi^h pUSrODTii 

SpT lie hump maski [sprite, bafkgnd) 
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Perlorm|r] 


CI94 


[IRfJlSplHSireeTi 


ci]2r 


FjC'H Switch -liVSli 




8B7 


Fvrtliiiil'' <'r>|M)s> 


!J(fFJ^ 


Basic 'inpul' 


B053 


Prinl "pf^r / 


c2;h 


Get a Key 


CD57 


Position H(M[]I Cursor 




83EI 


Fvniliidti' <.iur> 


H(fEB 


Redirecl Oiilput 


B08B 


Or riiinnidnd 


C29B 


Input Frum Screen 


cih;f 


Set Sf reE-M Col[jr 




8107 


Fvjluati' <rwirnkiiv> 


mv 


Reiiired litpiil 


B<»BC 


Errui 


C2BC 


Read Screen Char 


Cl)9l- 


Turn (.'ursiJi {)u 




8i:ii 


Evaliiafi' <rnd> 


9[I2 


Perl"riTi Iviiu' 


eOBF 


Piifil "^ 


C2FF 


Check For (ji](jies 


CDCA 


SelCHTC Register "![ 




8190 


Rnd MulliplLcr 


9129 


Perform |veTify| 


B0E3 


Perlorni|s| 


C30C 


Wrap lip Sireen Prinl 


CDC(^ 


SelCflTCRegisler 




819A 


Valui' .L>768 


9I2C 


Perfoijn jload 


B0E6 


Command!) 


D2U 


Asm lu Strcen Code 


CDDS 


ReadCRTC Register ;il 




819F 


Fkal-Fised UiibiQiic'J 


9IKD 


Perfom open 


BOFC 


VetloTs 


C:i3E 


Check Cnrnir Range 


CDDA 


ReadCRTC Register 




81 A 7 


Eva lualc Fixed NiimbjT 


4I4A 


PeTform close 


BIIA 


KejcJ Banktvl Memory 


D63 


Do New Une 


CDEfi 


SelCRTC to St rt-pn Address 




SIArj 


Fl(>al- Fixed Signtd 


91 AE 


(iH Load/Save PardlTleler^ 


BI2A 


WriK^ Banked Me rnorv 

r 


C37C 


Insen a Line 


CDF!J 


St^lCHTClcfCoJorAddrewi 




81C£) 


Fli>alj V. d] 


91 DD 


ChH Nexl Byte Value 


B13D 


Com[jaTe Banked Memorv 


C3A6 


Scroll Screen 


CROC 


SelCpWJCokiinnCharSt^t 




81IH) 


pA-iliirtte <\>is> 


91 El 


Gi't Ch.i racier i» Af">rt 


Bif;2 


Peilornt |in| 


C3DC 


Dele)e a Line 


CHIC 


AscJiCobrCodes 




81 D9 


Check Dire^'t 


9IEB 


Move (0 Next I'dran icier 


BI94 


Perlorm] ) 


CH)D 


Move Screen Line 


CESC 


Svslem Color Codes 




81UL1 


Prinriheyal dirsrf 


9IF<i 


Gel ()pcri/Cluj.e Pdrdrii'. 


BIAB 


Peilorm 1>J 


C1A5 


Clear a Line 


CE6C 


Rii Masksj 




81 EO 


Prinl 'undefd Function' 


y24'[ 


Heli?asel/OSlnnn 


BICC 


Pnni 'ebc-o. up' 


C53C 


Set 8(t-iolumnCouniertol 


CF71 


Ki'CollnirValueMSE") 




81 E5 


SetliplliBitFix-Floar 


4251 


Call 'thlalus' 


BID6 


Perlorm IgJ 


C53E 


Set 8ft-[olufiin Counier 


CEHE 


H(i-CollnirValLjeii*(iA10l 




81 F5 


Prini'di reel mode only' 


92 &7 


Call 'y:llfs' 


BIDF 


Perlorm 1|] 


C55D 


Keyboard Scan Subrtii 


CEA8 


Prt^Key l^ni^lhs 




81 FA 


Perlitrm |dei 


92 5D 


Call 'seniarri' 


BIER 


Dis[ildV Menior\' 


C651 


KeyPickupSRepeal 


CEB2 


Pr[^Ke>" [fe^Lmtiuns 




A-^^a 


riieck FN Synldx 


92ti3 


Call 'gel Ln' 


B2I)R 


fViiit " <r\'-s-iin>" 


C6DD 


Programmed Kevs 


EOOO 


He-^t^ CtwlE^ 




8S:iB 


f'eilihriTi ]i\] 


92+;9 


CjII 'ihrmit' 


B23I 


Perloiiii (■ 


C6E7 


Flash 10 Column Cursor 


ECI1B 


MMl SetHjjBvles 




8&AE 


Evdluale <Mrt> 


92tiF 


Call 'ciTchn' 


B231 


Perform 1 


C72D 


print loSiieen 


EO.Sfi 


-reslor- 




85 BK 


Ev.iliiate <(.hrl> 


9275 


Call 'cluse' 


B2D 


Addiimip:] 


C77D 


F.s"-o {escape] 


HtlSB 


-veclor- 




85l)(i 


Ev-iliiale <l'^lt> 


92 7B 


Call clair 


B2Cfi 


DuNeil Addrevs 


C7qA 


Vei-tors 


En7S 


Veclor=iloSinH 




8&)A 


Ev.iIiIhIU' <rii!lilt> 


9281 


Print Follow 1 nii Texl 


B2CE 


Perforin li| 


C7Bfi 


PrmI (.'onirol Chat 


E(I9^ 


-ramlas- 




86 IC 


Evaluate <iiiidS> 


92K7 


SelLuad'SaveBaiik 


B3:S7 


fVrforrn l-sv] 


C8U2 


Prinl Hi-Bil Char 


i-:ncD 


Code For High RAM Bank=. 
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El(^ 


RAM Bdnk Ma^ki^ 


EL09 


-101 n il- 


E1DC 


SeiUpCPTCRfljisTprs 


zmt 


Chetk Special Peie) 


E242 


Pe.eirofrl/128 


t241S 


^witrh 1" fi4 Wode 


E.2B 


CuderoSOa 


E26B 


SfaTi All K()Ms 


E2BC 


ROM Addiifwt^ Hi 


£20) 


ROM Bank^ 


E2C4 


PriiLl 'cbm' Maik 


E2C7 


vicsse^seiup 


E2FS 


rRTCfl563SclUpl'diF5 


E33B 


-raik- 


FJJ^E 


-listen- 


IME 


-acpir- 


E4D2 


-^wiSiri- 


e:4eo 


-Iksa- 


E50:J 


-CCLI- Prinr Si-imI 


E5I5 


'unllk- 


E526 


-unlsn- 


E-Sli!^ 


Resel ATN 


E.'ilS 


Sei Clock High 


£51 E 


Sel Clock Low 


E557 


SerD^I^High 


E560 


Sel Dal a Lew 


E569 


Read Sena! Lines 


£573 


Slabilize Timing 


ES9F 


Restore Ti mi ni^ 


E5BC 


Prepare Fur RespuilM" 


E5C3 


Fasr Dtsk Off 


E5Df 


Fasr Disk On 


E5HS 


Fa^ Disk On/Ulf 


E5FF 


|NMI}TriiiMiiHRS-2;i2 


E64A 


Ki-2Si Hiinl^hake 



EtiSE SeiRS-232Bi(Coi]iil EEAS 

ESm {NMI|RS-2:(2 Receive EEBO 

£7r-K SemlroRS-232 EEB7 

E7U5 ConnftI K-'^-in Inpul EEC! 

E7CE Get From R:S-232 EEC8 

E7Fj: inlerlock RS-232/Seria] EEDO 

ES05 (NMI) RS-2:^ Conltol I/O E£EB 

E85i) RS-2:(2 Timings EFUe 

E87K INMI) RS-332 Receive Tlmiii!! F.F4ft 

EKAH INWI) ftt-232 TransmilTiminii F-F79 

EUDlt Find Any Tape Header EFBD 

£919 Wnle Tap? Header FOBO 

E980 (iff Buffer Address FOCB 

E9S7 Gel Tap? BijUer Ssarl & End Addrs FI06 

E99A FindSpetifn: Header FMC 

F9BE Bump Tape PoinltT FIBS 

E4Ca Prim press plav .; FIE4 

E9DF CfietkTdpestalus F202 

E9E1* Prim 'press record.." F212 

E4F2 ImtialeTapeRead F222 

EAI5 IniliaieTapeWrile F23fi 

EA2fi CummtHiTafteCode F2:*D 

EA7D Wdil For Tape F2fi5 

EA8F Check TapeSiiip F27B 

EAAt Set Read Timing F32A 

EAEB (IRQ) Read Tape Bili F3A1 

ECIF SluTeTapeChars F3EA 

ED5I Read Pointer F48C 

ED5A NewCliarSelUp FIBA 

E[)69 SeiidTransiiniflTape F^C5 

EDSB WriieDaiaiiiTape F503 

ED90 [IRyiTaptWriie F50C 

EE2E [IRQ)Tap?Lecider K50F 

EE57 Wind Up Tape I/O F521 

EE9B Swiich IRQ Veclor F533 



"1101 





8502 Processor I/O Registe 


rs 




X 


l^^m 


1 UUl II Ml 


l=CH|l 


1 47UE 


l=DUt 


1 -Mill 


\ 






TdLW 

[J^hlliol 


HiFt4^ 


hjR^ 





8722 Memory Management Unit 



D5Ul> 

USHl- 
D5M 

DS06 
[&)? 
D50B 
DSus 
D50A 



in 


filUI khK\ 


. ROM 


■ jiili h'^f'" 


Pniitntigiirdliun rei{islE'rh. 
Similarly )fil"liJ»ve 


TTiTJSr 
key 




I drtr-Seriie 
C'lJiir-Hdnk 


[>i5h 


X 


X 


'm< 


Vhlrij-HdlLk 


X X 


hi Iqw 


41= IK 





y^v^ Pi^ hjijirer (IIKKHJ) 


L 
11 





S^a^kP^^^lin^rf(W^KI») 


L 



i4S1.1 
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(Same as CIA J for C64, unlil DCUC) 



\RQ Veclurs 

Kill Tape klolor 

Check End Addre» 

Bump Address 

(IRQ) Clear Break 

Cunlrol Tape f^olor 

-getin- 

-chrin- 

GciCharFromTape 

-chronl- 

-open- 

SeiCIAJoRS-232 

Check Serial Open 

-thkin- 

-chkoLiL- 

-lIow- 

Ddeie File 

Search Foi File 

Set File Paraii)eier^ 

-cLall- 

-clrcfin- 

Clear I/O Talh 

-Inad- 

Serial lj>ad 

Tape Load 

Disk Load 

Bjrsllj>ad 

Close Off Serial 

Gel Serial Bvte 

r 

Receive Serial Byle 
Tt^gieClcxkLine 
Pnnliinrisli Reset 
Pnnl searching' 
Send File Name 
Pnnl 'loading' 



F53F 


-save- 


F5B5 


Terminate Serial Inpul 


F5BC 


Print 'u\ ing' 


FSCB 


Snivel" Tape 


F5FS 


-udtini- 


F63D 


WalchForRUNiirSfiitr 


F65E 


-rdlim- 


FSfiS 


-sellim- 


F66E 


-slop- 


F&7C 


Pnnl '(Oil manv liles' 


F67F 


Prinl tile open' 


F682 


Pnnl 'file imt open' 


Fess 


Print 'file ncii found' 


F688 


Print device mil preseiii 


F68B 


Print ncil inpiil file 


FGfiE 


PrinI nul oulput lile' 


F691 


Pnnl missing file narili'' 


F694 


Pnnl illegal device no' 


F697 


Error '(1 


F6B(} 


f^esvafle^ 


F71E 


Pnnl li Direci 


F722 


Pnnl I/O Message 


F73I 


-sel nam- 


F73a 


-sellfs- 


n3F 


Sei Load/Save Bank 


YW 


-id-a- 


n57 


Sel Status Bil 


F75C 


-setnisft- 


F75F 


Set Serial Timeonl 


F763 


-niemlop- 


F772 


-niembot- 


F78I 


-lobase- 


F786 


Search For SA 


mu 


Searcfi&SetUpFile 


F7A!^ 


Trigger DMA 



RAE Gel Char FriirfiMHHHjr>' 

F7BC Store Loaded Bvle 

F7C9 ReadBvlelubeSai'L-d 

F7Dlt Get Cfiar From Memim' Bank 

F7DA SloreChartoMenKir\'Hdnk 

F7E;I ComjiareCharWiififk^emorLB nk 

HEC Load Mem Com rol f^ask 

RFO Bank Ma^ks 

mt\) Subrlns 10 Wl2A2-Sll2Fh 

F8SA DWACodcloTOFM 

F8fi7 CfieckAmoSlarlKOM 

Fa4(l Cfieck For Bool Disk 

F91)B Priiil 'biKilmg' 

F92F Prinl' .' 

ra8B WmdUpDi^kBoof 

FSBIi KenidNextB'nttBkick 

F9FB To2-Digil[kt-i]iial 

FAJ)S Block Read 

FAIS Print '1 

FA17 Pnnl a Message 

FA4(f NMI Sequence 

FAflS {IRgi Normal Enlr\ 

FAS'* Ke>'fxiard Matrix tlii-Shillal 

FA04 KevfioardMatTDiShified 

FB32 Keythiaid MairiK C'Key 

FBMB Keyboard Malrnc Conirol 

FBE1 Kevboard Malrii Cap^ Ijftk 

FFOO f^Ml'Connols 

FF05 NMI Transfer Enlry 

FFI7 IRQTransferEnlry 

FF33 RelurnFromlnlermpI 

IT3D Resei Transfer Em ry 

FF47 Iijiiibf I Jump Table 

FFFA Transfer Vetlor$ 



DMA Controller 






DFtn 

DFfH 

am 

DHH 
DR)5 
[JFTJfi 
DFO: 

phm 

[|F09 

T>F"A 



ftUsV 


hihUll 


\ \ X H 


^_^_^^^H 


X Ik 


Exw 


^lll]L 


"-^ 

1 


X 


IRfJ llM 


T 


Ml>di' 


r.^— 




H[>s|MdrecLS 




L 
II 







Ext^Elsi^ Addre^ 




L 
M 


\ 


X 


XXX 


F4[hir 


isiiMi Itiiiik 






Transler Leiqlh 




L 
1! 


Checksum 


VertiHi. Mam mum-Memory 



iTlKH 

5T1HII 
iflHl 
^7IW2 
SJIMl 
I^TIISIJ 

■ITimi^ 
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(SfimeasaA21ora>4) 



Ocno 


A 


Inr 






Up 








Kfv^ic 


vi I^ASf'kil|invrFled} 






DCJil 








J-ili- FfltlM "Ldl IWn 


Up 




Ki 


■yliMrdCltluiiiri Vt'oA 






tai2 


IhV'AllDulpul 




DC03 






llHI Alltri|]Ul 






0015 






Timer A 


L 
fl 




0017 






Timer B 


L 
II 





PRA :^{n> 



PfiB '.^Vll 













1 




DCOC 


ScnjIhliiPilRi-flUrr 




DCDl) 


IRQ 1 X X 


Kldit 


SReif 


\ TiniB 


liniA 




DCOE 


SRi-gl/O 


hmcr A 


, SidH 




IKTtF 




1 mu' n 


, ^^n 





DDRA^fi122 


OORB ^b.m 


T,M. 


i(l1^4 


TAH 


Sh:i?^ 


TBL 


5ft:5JEi 


run 


.it:!^; 




sE:ii? 




5fim 




^t^i\ 




^iktii 



t):>iij 


>iiar 
IN 


-n,7i 1 

IN 


SiT[,fl 

iin 


ll(iT 


"[1 


(HT 


Viikif 


EEk^k 




DOil 


m 

IN 


1 IN 




lid*- 
IN 


RP 
IN 


lyi'k 

Ol'l 


1 111 1 


IN 




ni>]^ 


IN 


IN 


DIT 


(HIT OUT 


OUT 


0LI1 


OUT 




OD03 


ni[,iirtH.^^:ii' 




WNM 
0005 








Tiiwr A 






L 
II 




ODoe 

DW)7 








TiiilkH 






1 
II 





































DOJD 


" nsm 

IN 




llllBT llllHT 




ncxiK 


1 1 ' ' ' ■ — ^ 


Tiiiu-r 
A. SUM 




dm 




TllliT 
li -<Uf\ 





Cunnwled biU rufl iisril liv S 
'■ F^B !> ihe Pardllti I.IMT f'orr 
L3DHA - i.lFdirerfl 



w\ 5iii;iH 

iVB' >ii-i:: 

IIDRA ■^[iSTH 

LiORfS Tjti^^l 

TAi. sr.ssii 

TBt, Sii^JkT 

I (;H jlk'^lE 

rfiA Mi'ilHI 

CRB ShS'il 
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8564 Video Chip 
Control & Miscellaneous Registers 



lion 

DUI2 
Don 





bxlendtd 
CIr Uodr- 


^-1^^ 1 


Hi', piny 




Y-Scroll 










Raster Rtijisrer 






- 




Liijht Pen Inpiil 




X 

y" 



X It 


Hesff 


Cri(fhl|T 


OilLirtiii 


X-Sfro!l 



Dim 


VM 1 :; 


VM\2 VMII VMICI 




X 


Df)]*l 


IK<J 


tnterruplSenae: 
Inlerrupt Enable; 




CVj|||!»IUII 


K^slE^r 


DUIA 






S|>r-K-ick 

rLilliMon^i 


Rasl^r 



Co]i>iir RegiAlerri 



r)"2i 

D"22 
D()2:3 
DC21 

n()2r^ 

D026 
DU2F 

[■mo 



X 


Exienor ("olour [Bnrcjt^r) 


X 


Belt kjiroucid Colour 'D 


X 1 


Backcrround Colour '1 


X 


Backt[mund Colour '2 


X 


Bh( kgrouEid Colour *3 


X 


SpnttfMulnColnur'O 


X 


Sprir^MultiColnur'l 



X 



fKeybtjard Rows] 



X 



Tc^f 



F.isl 
Ck>ck 



532 G5 



532 fih 
532 b7 
532^8 

53270 

53272 
53273 
S3271 

53280 
53281 
53282 
53283 
5328^1 
53385 
5328(i 

53295 
532% 
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{ldenHcallof>S81 onC(i4) 



Voicf! Voiie:? Vuuf'i 

D^ 1)4417 l>l(lt: 

DtOl IJ-HIK IHlIP 

i)4n^ imiii jni» 

mD3 lH()r\ Ulll 

mm wtiti Jui-' 

IMUS LM1X in 1-1 

mw won T>:n 



— 




FrequeiiEy 






L 
L 








I'ulseWidlh 






L 
II 




II 


II 


. 




N>K 


^ I'M 'i^W 


, tWi i 




4^ 


Kry , 






Ml i.k \\\:,-- 
, Jjriv^l<s<i 


1 




TiilU- 








Su^ldlll \f\-'-\ 


1 1 


Kek^J^f IlllU- 


J 





•^42-2 >fl:?l S4JHfi 

^1_>T3 .iJ2ai ^i:?S7 

■^127-1 Tfl?RI MJFlfl 

r.l27S ^i^Kl ►li^H 

M:i7ft 5JJ8.! W3!*> 

-.i:~. i-i2«J .'vj;mi 

'j427ft 5*285 Si^'i'l 



Vyirt^-ir!' 'wnte-cmK' 



wir* 



lHlft 
£HIT 



II 


II II 


„ „ 


L 
H 








Kjllvr ^^t^lfllcV 






KCMH|J]He 


hUETlHrjMt^ 

. 1 E'l . V.I . V^ . 


VI 




vsyir 


J^rihhljdEhl 

Ml , f!P 


uj Ma:i|''rV(^ltiiiii' 










E-'iLrer diHJ Vulume [wriic uiity) 



041^ 
IJ4IA 
D4m 



D4IC 



l'rfHfeX[j\/[l'l| 



I'dfliJk'Vifl/lJ'Jf 



'■iirii'lifriLriitjii 



E^nvetopt 1 



W2117 



M.-iJa 



jJ.^ 



'^m> 



>i:iii^'|r''«Jinilv| 

N[if[' .S|wial Vun I" h'dluii-i 
ITFST R[NC HOr SYNC) 



Sptiie 

4 

mm 

LH)OI 



Sptiit 
7 

1 

DOUF 



8564 Video Chip 
Sprite Registers 



X Position 



V Posiiniri 



Spnie 


; 

5:i24H 
532'19 



D027 D02E 



Spnh' Colour 



Bil For Sprile'; 



8563 SO-Column CRT Controller 



D&K' rrdd (sfdliih] 



DHHI 



SrJlu^ 



Uqhl 






SI7JV1 



DfifHk 

:i-i7M 


D6(il 


K^mdl 
Vdlir 




r» iiHi 


ll(iri'i>iir.tlTLirdl 
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lUil 


lloiij4]iiidKrL.Lr.iiiLTN|>istJ.n-ii isrn 


Ml 




2tll2 
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WJ 




mn 


Vi rlH ,il Syiu Wnllli 


Honj^iriiliJSiiH ^kIiI 


1 


1 jiiil.1 




i^iiF 


V ' 


V'riiLMiTnii 




•.Ihx^'i 




3»II5 


X 


K X 


VprlHrllTLrirtlMlLlM 


IF 




t^tuc 


X 


Venn .(Illi^iiJHiu*] (2^1 


■-, 




7ifl7 


^ 


V(iiiL-i!Svn[ F\>Mr[ijn 


211 "F ,1.* 




ftwa 


X 


X X X X x 


liirL-r!jui- 


II 




'l(ii!l 


^ 


X X 


SiJdn |j]hL'^ ^HTrhiLriuhv 


: 




litUi^ 


X 


( ur-if ^FlKk■ 


Cursw StJrt 


^2 




n fih 


> 


X X 


Curvff End 


1-1 
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1 1 Hill 


X 


'■ i 


{'H\\Ai^ A(lilrts.-h 


II 
L 
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IIUIE 




CurtJ>r Adclrf^^ 


H 
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tt^VMl 
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Ijiilir iV-ii Input 


1 

II 

1 
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fMVi:? 
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n 1 
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1 
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I'll til 
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iIjI 
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\ 


\ \ 
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BVS ; 


RImk ' 


VSlT^.II 


:ii 
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\ olour 

Kihrll^lfc' 


-"^-nii 

LiFih^jli 




H Scroll 
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ihllA 
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■7im 
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^1 




iKMC 
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r V'l Addrt'^^ 


kAM , 

1 
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X ■ 

1 
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.'4IH1 


X 
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— 
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36)24 


>L 
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TheC128- 

You Can Bank On It 



Jim Butterfield 
Toronto, Ontario 



You may have noticed that the Commodare \ 28 has sixteen "memory 
banks" In Bask, you may call whatever bank you want (for PEIlK, 
POKE, SYS or WAIT) by using the BANK command with a value Irom 
to 1 5. Similarly, machine language types will reference banks in the 
numitor l»y prefixing an address with a digit from to F - !he same 
bank values of to 16. 

HoweveMhe average programmer -- with no cartridge, internal ROM, 
or RAM expansion - can only make use of four of these numbers. The 
only ones that make sense are banks 0, 1,14 and IS (hex 0, 1, E, and 

F) 

Wiiat about !he other numbers? Banks 2 and 3 are reser\'ed for 
memory expansion. Banks 4 to 7 and bank 12 are only useful if the 
empty socket inside your machine has bee[i tilted with an "internal" 
ROM chip. Banks 5 to 11 and 1 3 are only useful if a cartridge ROM Is 
plugged into your machine. And even il you have these extra things 
fitted, chances are that a commercial software house has taken care of 
all the banking you're likely to need, leaving you with little to look at 

for fun. 

[ don't hkf' Ihc term bank" as it is used on this machine. These 
numbers represent conhgu rations; each so-CdIled bank is an assem- 
bly of varyini; parts of memory. 

Only 'Bank 0' is not a mixture: it uses <ine kind of memory only, the 
RAM where your Basic programs arc held (usually called RAM 0). All 
the others are mixtures of different types of memory appearing at 
various addresses. Even bank is slightly "impure" - addresses hex 
FFOO to rF04 are not RAM, they hold a special memory control chip 
called the MMU (memory management unit). 

Bank I. for example, is almost entirely the RAM where Basic's 
variables, arrays and strings are stored (RAM V). But there's a little bit 
of bank still in there, at addresses 2 to 1023; and the MMU is still 
present at FFOO to FF04. In fact, these items will be there in all 
"normal" configurations. 

Banks and 1 , then, are pure RAM, random access memory. You can 
.store things there, and you can read the contents of these addresses. 
But you'd have trouble running most machine language programs in 
one of these banks (don't let terminology throw you: I mean, "in one 
of these configurations"). You have no input/output paths available 
from these configurations, and you don't have the buiU-in operating 
system (the 'Kernal ROM'l to help the |>rogram do its job. In most 
cases, you'd find bank 15 (hex F)to be much more useful for running a 
program. 



to $3FFF; above that is the ROf^ thai holds the Basic logic, from 4000 
to BFFF, above that is the Kernal operating system, in two chunks 
from COOO to CFFF and EOOO to FFFF; and finally, the block from 
DOOO to DFFF is used for the Input/Output (I/O) chips. It you need to 
use the character generator, Bank 14 (R] has the same architecture 
except that the block from DOOO to DFFF contains the character set 
instead of i/0. 

WhenyougiveaBANKcommand. nothing happens; the number you 
supply is stored (at address i03D5). It won't be used until you give a 
command which needs this number: POKh:, f^EEK, SYS, WAIT and 
some oi the DOS commands such as BLOAD and BSAVE, Even then, 
the computer will only set up the configuration for a fleeting moment 
while it transfers material to or from the selected bank. 



Roll Your Own 

So you have only banks 0, 1, Hand 15 for your work. No problem for 
a Basic programmer who might occasionally PEEK and POKE. Bui for 
the serious machine language programmer, it's somewhat limiting. To 
keepIheKernalandl/0, the programmer is lorced to select BANK 15; 
and that limits the program to RAM m the area below $4000 (decimal 
16384). This could be somewhat restricting, especially when a high- 
resolution screen might reside in the same area. 

There's hope, in fact, there are sixieen architectures that the ML 
programmercan use. Only four of them have BANK numbers, but (he 
others can be reached by storing a value at SFFOO. 

Table I shows all the practical combinations. Here's a quick rundown 
on some of the most important: 

00 - Storing this value in FFOO causes the C128 to take up its 
"normal" BANK 15 configuration. Use this before returning To Basic, 

3F and 7F - Storing £3F into FFOO creates the BANK architecture; 
storing $7F creates BANK 1. Careful: you have no I/O or Kernal ROM. 
There's a shortcut to these architectures: storing anything to FFOl 
creates Bank 0; storing anything to FF02 creates Bank \ . 

OE and 4E - Storing $0E into FFOO creates the RAM for addresses 
up to BFFF; storing $4E creates RAh^ 1 lor thisarea. The Kernal and 1/ 
take up their normal positions. This are the "ideal" configurations 
for serious machine language stuff: OE for a program in RAM 0, and 4E 
for a program in RAM 1 Basic is removed, and you have lots of 
memory to play with. 



Excuse the hexadecimal numbers, but serious architecture students OF and 4F - These are similar to OE and 4F- above, except that the 
want to see them that way. Bank 15 (F) has RAM Irom address 2 character generator chip is at addresses $D000 to DFFF instead ol I/O. 
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Use one of these configuralions {briefly) when you need 10 examine 
the pixels of the character generator; but don'T call any input or output 
when you are set up this way. 

02, 03, 42 and 43 - These are curious configurations that keep the 
upper half of Basic (from 8000 to BFFF) They would not be used 
much except by enthusiasts who wanted to get at [he floating point 
math routijies in that area. 



Summary 

You can arrange any of a number of custom architectures if you need 
to. The standard BANKS are of Umiled help; use them to get from 
Basic and then organize your own architecture with a POKE to FFOO. 



Table 1. The sixteen 'usefu ' architectures. 
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Note that in ail configurations, the first IK of memory (addresses 0002 
to 03FF) is always RAMO, Addresses and I are internal to the 
processor chip. 



An Architecture-Testing Program 

You might like to try your hand at checking the type of architecture 
thai results when specific values are poked into location tFFOO, Run 
this program, supply a value, and see what you ger. 

The "business end" is a machine language program which tries the 
architecture and peeks various locations, reporting what it finds. Such 
a program must be tucked into the first I K of memory, that's the only 
place that is safe from architecture switches. 

The specific locations examined by thepro8ramare(hex): 3000, fi(*0O, 
BOOO, FOOO, and D020. A value of is poked Eo tliese locations in RAM 
0, a value of I in RAM I. The ROM values are fixt'd, hopefully iMK) 
contains 60, bOOO contains 40, and FOOO contains 29. At D020. the 



character generator contains 78, and we make sure that the video chip 
border colour is set to its normal value of FD, 

The machine language program sets the requested value tnto FFOO, 
and then tests The contents of the specific locations. A z^w is taken to 
be RAM 0; a 1 lo be RAM I ; othei values are tested for a match to the 
known ROM values. If none of these are reiogni/ed. ihe numeric 
value is printed, Each location is tested five limes; if the value is not 
constant for every read, it's likely "not there" and is shown as 
VARYING, 

C128 Architester 

10data120, 141, 0,255 

20datal74, 0, 48, 142, 128, 2 

30data174, 0. 96, 142. 129, 2 

40data174, 0, 176, 142. 130, 2 

50data174, 0,240, 142. 131, 2 

60dala174, 32,208,142,132, 2 

70data169, 0,141, 0,255, 88, 96 

SO for i = dec( " 250 " ) to dec( " 278 ■ ) 

90 read x:t = t + x: poke ),x 

1 00 next j 

nOif T<>4305thenstop 

120for| = 3to0step-1 

130 bank j 

1 40 poke dec( " 3000 " ),f:a(0,O) = -1 

150pokedec("6000"),f.a(l,0) = dec("60'') 

160pokedec(^t>000")J.a(2,0] = dec("4c") 

1 70 poke dec( " (000 '),]:a(3.0) = dec( " 29 " ) 

180pokedec("d020"),ia(4,0j-dec("78") 

190 next J 

200 bank 15 

210 poke dec(" d020'j,253 

220a$(0)- "0400-3fff' 

230a${1)= "4000-7fff" 

240a$(2)= "8000-bftf 

250a$(3J= "cOOO-cfff/eOOO-ffft" 

260a$(4)= 'dOOO-dttt" 

270 input " value of SffOO poke(hex)" ;x$ 

280 X = dec(x$).if x>255 goto 270 

290fort=1 to5 

300 sysdecf 0250"),J< 

310 torj = 0to4a(j,t) = peek(j-fdec(^'0260")):nextj 

320 nextt 

330forj = 0lo4.q = fre(1) 

340 a = a(j,1):r$= "' 

350 for I = 2 to 5:if a<>a(j,t)then a = AAA 

360 next t 

ramO " 

rami" 

ram2^ 

ram3" 
410 ffa = a(i,0)thenrS= " rom" if j = 4 then r$= "cgen " 
420 if j = 4 and a = 253 then r$ = " i/o " 
430 ff a = 1 20 then r$ = " cgen " 
440 if a = 444 then r$ = " vanes ' 
450 ffr$= "' then r$ = slr$(a) 
460 print a$(j];" - "; 
470 print r$ 
480 next i 



370 if a = Othenr$=^ 

380 ita = 1 thenr$ = 
390 if a = 2thenr$ = 

400 if a = 3thenr$ = 
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Getting The CI 28's 
CP/M+ In Gear 



Clifton Karnes 
Greensboro, NC 



After stating we felt there was nof enough demand for more CP/l\/f 
info than is already oDailable, ive were deluged with letters. Several of 
the responses explained it was just the contrary - that what little CP/M 
info is around, is fiord to find. So here is the first of what we hope will 
be more articles on CI 28 CP/M^. - EIC 



One of ihe tiicesJ things about the new CI28 and 1571 disk drive is 
that they have a CP/M mode thai can rtad real CP/M dij^ks. The 
system as supplied has some excellent features but unfortunately it is 
incomplete. There is, however, a solution. 

In this article I will discuss how to get the CI28's CP/M + system up to 
par, how to begin tapping Ihe huge source of public domain software, 
and describe some language implementations (both commercial and 
public domain) that I've tried on the CI 28 in CP/M mode, 

Where's the Assembler? 

The first thing you'll notice about the CP/M+ disks is that they 
contain no Assembler (MAC), debugger (SID), or any ol the other 
utilities and source files thai are supposed to come with CP/M + . This 
[iroblem is easily solved Just send in the card for the "DRI Special 
Offer" (and $19.95], Commodore will send you the missing utilities 
and a huge manual. 

Where's the I/O? 

The next thing you'll notice about the CP/M+ is that, besides the 
console and disk, all the serial I/O routines are null. This means that 
the User's Port is dead. If your printer uses this port or you have a 
modem you would like to use, you are out ol luck. But don't despair. 

Where's the Standard ASCII? 

The next question that may arise regards ASCII. CP/M uses standard 
ASCII and the 128 implies it does (see the SETKEY utility). This is true 
in pari. The characters sent to the screen are standard representdtions 
(characters unusual to Petscii are formed with the CTRL key plus the 
key that most nearly resembles the character eg. CTRL [ and CTRL | 
for left and right curly brackets. CTRL / for backslash). But the codes 
sent to the printer are Petscii and there's no way to change that. In 
other words, if you've ^u! a flexible printer like the Star SG-10 and an 
interface, you can^t gel out of emulation mode to use any of the 
printer's extra features or for that matter its standard characters that 
aren't part of Petscii. There's hope. 

Commodore, CompuServe and Irv Hoff to the Rescuel 

CBM Engineering (in Ihe guise of Von Ertwine) has been working on 
these problems and there is a new approved CP/M+ operating 
system available tree to all on CompuServe This new operating 
system enables the serial I/O so your User's Port is undead. In 



addition to the new operating system, there's a new utility called 
CONFthatallowsyou to configure your system using an ASCII prmter, 

dual disk drives, define baud rate, screen and cursor colors, key feel, 
and much more. If this weren't enough there is even a modem 
program for the 1 28 available on ComimServe: IMP by Irv Hoff. IMP is 
the latest CP/M modem program in the honorable line That began 
with M0DEM7. This modem program is excellent and opens up the 
world to ClVMers. 

How can you get this stuff? First you must be a memt>er of Compu- 
Ser\'e. [f you're not then this is a good time to join. You'll need VIDTEX 
4.0C to star! downloading. All of this material is in DL3 of CPM-IG. 
CPM-IG (Ihe CP/M Special Interest Group on CompuServe) has 
Started DL3asa DataLibrary specifically for CI 2i^CP/Mers. Nice, 

The thing to do first is download C128.IRV. This file explains which 
other files are needed and how to get them. You'll need NEWSYS- 
.COM (this creates a new CP/M + operating system), 1MP-C8,B]N and 
IMP.DOC (this is the modem program and its documentation), I2C8- 
l.ASM (this is an overlay to let you customize Ihe modem program), 
C0NF.COM and CONF.HLP (these allow you to set system parameters 
and tell you how). CI571,COM (this nearly doubles the write speed of 
the 1571 in CP/f^ mode). In addition there are two hies to help you 
wilh the downloading process: BIBOOTIMG (for single drive users) 
and S'^CONV (for users with two drives). Even at 300 baud none of 
these files are long enough to be very expensive to download. I 
recommend that if you're not a member ol CompuServe you join, but 
if for one reason or another the way of getting this software I've 
described isn't appealing, then you can send me a formatted CP/M + 
disk, and SASE and S3.(H) and Til copy the files for you. 

Free Software 

Now that you've got your system tuned up you'll want to get some free 
software. The best place to get started is to look into two books on the 
subject: Free Software by Robert A. Froelich (New York: Crown 
Publishers, 1984) and How to Get Free Software by Alfred Glossbren- 
ner (New York: St. Martin's Press, iyB4). Both of these works give 
excellent introductions to obtaining free software. 

There are two basic ways to get public doniatn software, download if 
or buy the djsks. You can download from a commercial database, like 
CompuServe or from a bulletin board. You don't actually buy public 
domain software (or shouldn't] but most user's groups charge a 
donation for equipment wear-aiid-tear, etc. and there are copy 
services that copy public domain programs lor profit (you're paying 
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for rheir service - not the software) Which procedure is more 
economical? Thai depends on your silualion. II you've got a 1200 bps 
modem and a local bulletin board or if the files you're interested in are 
fairly shorT then downloading is the way to ^^o. II, however, youVe no! 
in this situation, it can become very expensive to download programs 
with all the reievartt files. The costs vary with buying the disks 
themselves from something like a dollar a disk for local user's groups 
(you'll usually have to join !he group too, which will be around $10 ■ 
$25) to $15 and up for copy services. 

There are two principal national sources of CP/M public domain 
software on disks: CP/M Users Group (CPMUG) and the Special 
Interest Group for Mtcrocomputers (SIG/M). These groups bolh have 
extensive libraries. These bocks discuss both these sources at length, 
Asfortheformatsthat will work on your 128: Kaypro2, 4, IBM CP/M 
86 and Osborne Double-Detisity all work fine. That covers a lol of 
territory. Most of the public domain software out there is for CP/M 2.2. 
but I haven't found any incompatibilities yet with the CP/M 3.0 on the 
12B. 

Programming Languages 

The main reason many of you are interested in CP/M is the program- 
ming languages available. Many languages are even in the public 
domain. The most famous of these is perhaps Smali-C. What follows 
is an annotated listing ol commercial programming languages and 
editors (Ve tried that are low in price and that work on the 128, 
followed by some public domain packages available from the national 
user's groups mentioned above. 



The Beginning 

Although this is the end of our smorgasbord of information on C128 
CP/M + , I hope it will be the beginning for you. Find a source ^nd 
start checking the stuff out. Maybe the Transactor will even start 
giving a page each issue to C128 CP/M 4 developments. 

Clifton Karnes 
25iyOverbrookDr. 
Greensboro, NC 27408 
(S)19) 373-7892 

Addresses of Software Sources Mentioned 



Mix Software 
211GB Arapaho 
Suite 363 

Richardson/rX 75081 
(214)783-6001 

Ellis Computing 

3917 Noriega SL 

San Francisco, CA 94122 

(415)753-0186 

Software Toolworks 
14478G!oriettaDr. 
Sherman Oaks, CA 91423 
(818)986-4885 



SIG/M Main Office (write to them 
to find your nearest SIG/M repre- 
sentative) 
Box 97 
Iselin, NJ 08830 

CPMUG 

1651 Third Ave. 

New York NY 10128 



C Users Group (CUG) 
Box 97 

McPherson.KS 67460 
(216)241-1065 



Language 



Description 



Price Supplier 



MIXC 



Full K&R C compiler with UNIX functions. 400-page manual 



S39.95 



MIX Software 



Nevada FORTRAN 



Fortran IV with 77 extensions 



$49.95 Ellis Compuling 



Nevada COBOL 



ANSI COBOL 74 with level II features 



$49.95 Ellis Computing 



USP/80 



(nterLISP dialect 



$39.95 Software Toolworks 



MfX Edit 



Full screen / Split screen, programmable 



$29.95 



Mix Software 



Nevada Edit 



Full screen 



$49.95 Ellis Computing 



I received excellent service from all of commercial sources listed above ). hi addition to the these commercial packages there are several 
languages available in the public domain. These include: 



FBAS^C 



Gordon Eubank's Master's thesis and a forerunner of the widely used Free 
CBASIC 



CPMUG Volume 30 



Small-C 



'C programming language by Ron Cain, with only int and char data types Free 
but widely used. Comes with source code. 



C User's Group 



XLISP 



Experimental Lisp by David Betz. Comes with source code in C. Soon to be Free 
upgraded to a subset of Common Lisp, 



SIG/M Volume 118 



FORTH-83 



Forlh-83 implementation version 2.0 



Free 



SIG/M Volume 204 



E-Prolog 



A small Prolog implementation. Comes with ASM source and a VALGOL Free 
compiler written in Prolog. 



SIG/M Volume 242 



J RT Pascal 



Full Pascal implementation 



Free 



CPMUG Volume 82 



This is just a list of the more popular lanf^ua^es available - there are others. And lots of other software including a.ssemblers, text editors, 
diskutilities(thereare tons of these -one ol the best is SWEEP in its latest version], and games As the two books mentioned above show 
there is no such thing as completely free software, the price you pay for public domain programs (either in downloading time or to user's 
group or copy service?) is usually a very small fraction of the value o( work. Also, most of the above-mentioned public domain works can be 
downloaded from any number of sources if you choose that route. 
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C 1 28 RAM Disk 



Noel Nyman, Seattle, WA 



Add A 16K RAM Disk To Your C~ 128 With No Additional Hardware! 



A RAM disk is a chunk oi random aaess (reari/wrife) memory that acts 
like a disk drive LOAD and SAVE work with it. it cannot be reached by 
store, PEEK or POKE, RAM <1isk is external hardware, a circuit lx>ard with 
chips (jl various sorts. U it has enough memory to be practical it is 
physically large and expensive. 

The advantage of RAM disk is speed. Files can be l<Kated and LOADed 
rapidly. Some database users find RAM disks worthwhile Bui a I70K RAM 
disk costs about what you would pay for a ]5A\. and the memory goes 
away when the power is turned off. t 

If you own a 0-128 you can try RAM disk wilh no additional outlay for 
hardware. Every C-128 has t6K of RAM that is not part of the regular 
memory map-theeightycolumn video RAM. Although a IGKRAMdJskis 
small by commercial standards, it will hold 62 blocks of Basic programs or 
one-fourthoftheBasic variable memory. A new Basic program, or a whofe 

new set of variable values, can be brought into memory in about two 
seconds. 

To understand how our RAM disk will work, you must know a little about 
the eighty column display system. We only have access to the 8563 eighty 
column video chip and its RAM through two addresses or "ports". One of 
these pons, located at Bank 1 5, address 54784 ($D600 in hexadecimal), is 
used to select a register in the 8563. The other port, located at 54785 
(SD601 hex), is used To read from or write to the selected register. The 
video chip u^es the regirSter data to make changes on the screen. The buzz- 
word used to describe this situation is "pipelined architecture '. 

There arc 37 registers in the video chip. Some of them are high/low 
dddressvectors(poin!ers) to the video RAM. Others change eighty column 
screen functions by passing numbers or setting and clearing flags WeH 
only be concerned with three of the registers 



The video register to be acces^sed is stored \n the X register of the 8502 and 
the routine i;^ entered at address SCDCC The value in X is stored at SD600. 
Then the BIT command checks for bit "7 to go high. Until it does, the BPL 
command will branch back to the BIT instmction Once bit "7 goes high, 
the video chip is ready and the new data IS stored at the data port, SDGOI. 

If we want to store data in register 31, the routine is entered at address 
SCDCA which stores 31 ($1F) in X for us. There is a compfemenlary 
routine starting at SCDD8 that reads a video chip register. 

The following programs will store data to the 16K video RAM and retrieve 
it for later use. You must use the 40 column .screen with them, since any 
printing done to the 80 column area will garble the data you've placed 
there. Before RUNning the programs, switch to 40 column mode, if you 
have an 80 column monitor available, clear the 80 column screen and type 
the following: 

POKE 54784,25. POKE 54785,128 

Storing 128 in register 25 puts the video chip in Hi-Res or bit mapped 
mode. The two sets of vertical barr^ at the top of fhe screen are the text 
(CHR$(32) on a cleared screen) and attribute (color ram) screens. The 
horizontal bars below are remnants of the RAM test done on power-up. 
The five columns at the bottom are the character sets data. The blank 
spaces are there for additional character information for a double wide 
character mode. 

By switching to bit mapped mode, you'll be able to see the data and 
programs being SAVEd to RAM disk. 

Listing '1 is a Basic loader for a routine designed to copy portions of 
memory from any Bank to RAM disk. Enter the loader, RUN it, then SAVE 
the resulting machine language program by typing: 



Registers 18 and 19 hold the vector to an address in video RAM. The vector 
is stored in HIGH/LOW order. Machine language programmers are itsed to 
two byte addres.ses being stored in the opposite sequence, so it's important 
to note the difference. 



BSAVE " MEfVlORY DRAfvl " , BO, P3072 TO P3184 

To use the routine, set-up the beginning and ending addresses of memory 
using these commands: 



Register 31 is the CPU Data register. The value at the address pointed to by 
registers 18/19 is available in register 3L If we access register 31 and store 
a number at the data port (SD601), it will be placed at the video RAM 
address pointed to by registers 18/19, The vector at 18/19 is then 
incremented automatically. 

When we store a new register value at address SD6U0, the video chip is 
probably busy updating the eighty column screen. We have to wait until 
the chip is ready to kx»k at our data, or we gel erratic results. Bit '7 of 
address SD600 i^ held low when the video chip is busy, and goes high 
when it IS ready to accept new data. The ROM routine below is used by the 
8502 processor to check bit '7, 



FCDCA 
CDCC 
CDCF 
CDD2 
CDD4 
CDD7 



A2 IF 
HE 00 D6 
2C 00 D(i 
10 FB 
8D ni DG 
60 



LDX 'SIF 
STX SD600 
BIT Si:)600 
BPL tCDCF 
STA $D6f}l 
RTS 



SYS 3072,1b, hb 

SYS3077,le,he 
Where: 

lb = low byteofaddressofbeginningof memory 

hb = high byte of address of beginning of memory 

le = low byte of address ( + 1 ) of end of jiiemory 
he = high byte of address (4 1 ) of end of memory 

For example, if you want to save all the variables (except dynamic string 
data) created by a Basic program, type; 

SYS 3072, PEEK(47), PEEK(4e) 
SYS 3077, PEEK(51),PEEK(52) 

Be sure [hat no more than IGKof memory is involved. Then type: 

SYS 3082,0,0,1 
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The first Iwo numbers after the SYS address are the low/high vector lo the 
localjun in vjdoo RAM where the momory will bestored. The ihird number 
is the Bank number uf the memory to be copied. For variables, this would 
be Bank I 

After sforini; lo RAM disk, type: 

PRINT PEEK(251), PEEK(252) 

This wjtl give you the low/high veclor of the next availal;!e location in 
video RAM. You can store several blocks of memory and retrieve them 
independt'jilly by keeping track of their video RAM starting addresses. 

To gel the data back, set up the starting and ending addresses as above. 
Then SYS to the routine using the same video ram address vectors. Add 
128 " lo the Bank numlx^r to signal the routine to retrieve from the video 
RAM rather than copy to it. II retrieving variables for use with Basic, you 
should also POKK the appropriate values in locations 47/48 and 51/52. 



You can also use the video RAM from C-64 mode. The eighty column 
screen will be accessible, provided thalyou'veused the command "G0()4" 
after first booting in C-128 mode. Listings '3 and "A are the C-64 mode 
versions of the MEMORY and BASIC DRAM programs They are relocated 
to start al 51200 (SC800) in the C-64 memory map. This is half way 
between the popular 49152 ($CflOO) location used by many machme 
language routines and 52224 (SCCOO) used by the DOS 5.1 wedge. 

To use the C-fi4 MEMORY DRAM, enter. 

SYS51200Jb,hb 
SYS51212,le,he 
SYS51224,0,0,0 

The three zeroes after the last SYS represent any low/high byle address in 
video RAM and Ihe flag to store or retrieve memory. Since there are no 
Banks in C-64 mode, use a zero to store and 1 28 to recover. 



If you want to use the eighty column text screen, you can still have access 
!o4KofdiskRAM Theareabefween video RAM addresses 4049 and 8191 
is unused in text mode. If you store more than 4K in this area, you'll 
overwrite the character set data. 



For C-64 BASIC DRAM, SYS 51200 to initialize the program. The same 
three commands are added and follow the same rules as C-128 mode, 
except that additional commands cannot be used on the same line as 
MLOAD. 



Listing '2 is a Basic loader lor a routine to SAVE and LOAD Basic 
programs. As before, enter the program, RUN it, and type the following to 
SAVE Ihe machme code 

BSAVE " BASIC DRAM " , BO, P2956 TO P3573 



To aclivale the routine enter 



SYS 2956. 



BASIC DRAM Adds 3 Commands to Ihe C-12S. 

MSAVL SAVRs the Basic program in memory toRAM disk, assigns it a 
numher, and shows the amount of memory remaining in 
RAM disk. 

MLOAD LOADs a program from RAM disk to the current Basic 
memory space in Bank 0. The command must be followed 
immediately, no spaces, with the number (0-9) of a program 
already MSAVRd. 

MSCRATCH Asks for a starling program number and '.scratches" that 
program and all programs with higher numbers from the 
RAM disk 

MLOAD can be followed by a colon -ind other commands in direct mode. 
For example: 

ML0AD2 RUN 

will place program '2 from RAM disk into memory and RUN it. 

The C-128 has !wo25fi byte pages permanently designated for RS-232 use 
thai slI below fhc Hasfc program area These are destined to become 
popular "safe" locations for machine code. The MEMORY DRAM code is 
\<KAh'<\ in Ihe FLS-233 input buffer. The BASIC DRAM program is longer 
and uses both buffers and the top of the tape buffer as well. If you RUN a 
tJasn' program that uses any of these buffers. Ihe computer will probably " 
crash " . 



To disable BASIC DRAM in either mode, use Ihe resel switch near the on- 
off switch or manually change the ERROR vector at $0300/$030] to its 
default value. The BASIC DRAM {for both modes) is a compromise 
between features and length. It will give you a "DISKFULL" errorifyou 
try to SAVE more than ten programs. But it doesn't check for actual 
memory left in video RAM. II you SAVE something too large, the address 
registers wilt merrily "rollover" lo zero and store on top of data you ve 
already placed there. 

Assigning numbers lo the programs is another compromise. It would have 
been best to intercept the LOAD and SAVE routines, assign an unused 
device number lo the RAM disk, use file names, etc. This would have 
required a lot more code, too much to type in from a magazine listing. 

Possibly the most significant compromise was made to allow the RUN- 
STOP/RESTORE key combination lo halt Basic programs. The C-128 
RESTORE routine clears both screens when executed Since clearing a 
RAM disk isn't what we had in mind, the MMI vector is relocated to point to 
an abbreviated routine that leaves Ihe RAM disk alone. The normal 
RESTORE resets several pointers, NMI among them. Since we can't have 
that either, the pointer routine was also eliminated. RLSTORE uses several 
JSR calls to ROM routines. To leave out only small portions of these 
routines, we would have lo put the balance of them tn our program, and 
you would have to type them in. Instead, we've left out several of the JSR 
calls, and kept the minimum to get Basic to work properly If you have a 
favorite program that uses any machine code, test it thoroughly when 
using it with BASIC DRAM. 

These problems don't plague the C-64 version. There is no eighty column 
screen to clear on a C-G-^, so RESTORE doesn't have that function. We can 
leave the normal NMI routines intact. 

We did have to add some code to the C-64 version, however. The SYS 
command in the C-128 looks for values separated by commas following 
the SYS address. The first three will be transferred lo the A. X, and Y 
registers of the 8502. This makes passing values to ML short and sweet. (A 
fourth value will be placed in the Status Register, but beware of that! The 
value placed there will affect all the flags, including decimal mode. The 
processor will also set bit '5, the unused flag, even if your passed value left 
in clear.) 



The Tronsoctor 



39 



July T9S6: VOIume 7, luue 01 



The C-6A doesn'J have this feature, and lo keep the commands the same. 


ID 


2050 data 120, 173. 0, 3,201, 63,208, 29 


the code must be added. We also needed to add the routines to access the 


GB 


2060 data 141, 179, 11, 173, 1, 3, 141. 180 


register and data ports for [he video chip. 


Al 


2070data 11,169.181,141, 0, 3,169. 11 




EM 


2080data141, 1, 3,169,195,141, 24, 3 


Both BASIC ORAM'S use the error wedge technique described by Brian 


LI 


2090 data 169, 13,141. 25, 3, 88, 96, 


Munshaw in Transactor 5-6 ("A New Wedge for the Commodore 64"). 


FF 


2100dala 0,224, 11,240, 3.108,179, 11 


The three added comrnands cause a "syntax error " . Our program inter- 


MC 


2n0data201, 147,208, 3, 76,208, 12,201 


cepts all error messages and passes on any except syntax errors. These are 


GL 


2120 data 148, 240, 7,201, 242,208.238, 76 


examined for the use of an illegal character in front of a LOAD, SAVE, or 


AG 


2130data 60, 13,169, 0,141, 0,255,173 


SCRATCH token. Since any i lega character will work, XSAVE wil have 


NE 


2140data223, 13,201, 10,144, 28, 32,125 


^ ■t' 

the same effect as MSAVE. 


MC 


2l50data255, 13, 18, 82, 65, 77, 32, 68 




AN 


2160 data 73, 83, 75, 32, 70, 85, 76. 76 


The C-64 doesn't lokenize the word " scratch " , so some additiona code is 


K 


2170data 27, 81,141, 0, 32,142,201, 76 


required. To eliminate excess typing, we've decoded only the "sc" 


JH 


2180datal82, 12, 10,168,133,200,185,224 


portion. MSCREAM will work as well for M5CRATCH. 


EA 


2l90data 13,162, 18, 32,204,205,185,225 




Jl 


2200data 13.232, 32,204,205, 56,173, 16 


We hope that you enjoy experimenting with RAM disk and find it useful. 


DF 


:2210data 18,133,253,229, 45, 32,202,205 


For example, you could MSAVE severa programs such as Disk Doctor, 


MN 


2220data173. 17. 18,133,254,229, 46, 32 


Directory Reorganizer, Two Co umn Directory l^rinter, etc. prior to a heavy 


: HA 


2230data202, 205, 165, 45,133,251,165, 46 


disk reorganization session. Then a simple MLOAD" will quickly bring in 


JN 


2240 data 133, 252, 160, 0, 162, 0, 169, 251 


each program as you need it. This would be a real advantage to anyone 


FM 


2250 data 32,116,255, 32,202,205,230,251 


using a 1 54 1 /C-l 28 combination. 


IL 


2260 data 208, 2, 230. 252, 165, 251 . 1 97, 253 




MB 


2270 data 208, 234, 165,252, 197,254,208,228 


The Merlin source code for the DRAM programs will be found on The 


LP 


2280 data 164,200, 200,200, 162, 18, 32.218 


Transactor Disk for this issue. If you'd prefer hard copy of the source code. 


NA 


2290data205, 133, 252, 153,224, 13.232. 32 


mai $2 (either Canadian or US] and a large addressed enve ope fo; 


AB 


2300 data 21 8, 205, 133,251, 153,225. 13, 32 




FE 


2310data 125,255, 141, 83, 65, 86, 69. 68 


Noel Nyman 


CG 


2320 data 32. 80, 82, 79, 71, 82, 65, 77 


Geoduck Developmental System 


EK 


2330data 32, 0,169, 0,174,223, 13, 32 


PO Box 58587 


PE 


2340 data 187, 12, 32,125,255, 27, 81,141 


Seattle, WA 9S188 


Bl 


2350 daTa 32, 32, 0, 56,169,128,229,251 




PP 


2360 data 170, 169. 62,229,252, 32.187, 12 




OM 


2370 data 32,125,255, 32, 66, 89, 84, 69 


Listing One 


EM 


2380 data 83, 32, 82, 69, 77, 65, 73, 78 








CM 
HM 


2390 data 73, 78, 71, 32, 73, 78. 32, 82 
2400 data 65, 77, 32, 68, 73, 83, 75, 32 




LL 


1 000 rerrn save " 0:mern dramJdr " ,8 




GG 


1010: 


HI 


2410data 27, 81,141, 0,238,223, 13, 32 




CH 


1020 for 1 = 3072 to 31 83: read x. pokej.x 


AF 


2420data142, 201, 162, 128, 108, 179, 11, 160 






ch = ch + x. next 


IL 


2430data 0,132, 98.133, 97,134, 96, 32 




LJ 


1 030 if cfiOl 9056 then print " checksum error " 


DL 


2440data 7, 186, 169, 0, 162, 8, 160, 3 




El 


: 1040: 


MB 


2450 data 32, 93,186, 96. 32,128, 3, 41 




EE 


1 

1050 data 133, 251, 134, 252, 96, 133, 253, 134 


AM 


2460 data 15.205,223, 13,144, 3, 76,158 




PC 


1060 data 254, 96, 133, 200, 134.201, 132, 250 


FL 


2470data 13, 10,168,169, 0,141, 0,255 




KM 


1070data 72,138,162, 18, 32.204,205,232 


KE 


2480 data 165,200. 185,224, 13, 162, 18, 32 




HK 


1080 data 104, 32,204,205, 160. 0, 165,250 


JJ 


2490 data 204, 205, 133,252, 232, 185, 225, 13 




ML 


1090data 48, 42,166,250,169,251, 32,116 


DM 


2500 data 32,204,205, 32,216,205,133,253 




CP 


1 1 00 data 255, 32, 202, 205, 230, 251 , 208, 2 


MH 


25l0data 32,216,205,133,254, 24,165, 45 




MJ 


1 110 data 230, 252, 165, 251 , 197, 253. 208, 234 


CM 


2520data133, 251, 101,253, 133,253,141, 16 




Kl 


1120 data 165, 252, 197,254,208,228, 162, 18 


DP 


2530data 18,165, 46,133,252,101,254,133 




ML 


1130data 32,218,205,133,252,232, 32,218 


GB 


2540data254, 169, 251, 141, 185, 2, 160, 




BP 


1140data205, 133,251, 96, 41, 15,133,250 


BD 


2550 data 32,216,205,162, 0, 32,119,255 




LA 


11 50 data 169,251, 141, 185, 2, 32,216.205 


EG 


2560 data 230, 251, 208, 2,230, 252, 165, 251 




OL 


11 60 data 166, 250, 32, 119,255.230,251,208 


BH 


2570 data 197,253, 208,236, 165, 252, 197,254 




KH 


11 70 data 2,230,252, 165, 251, 197,253, 208 


MD 


2580 data 208, 230, 32, 79. 79, 76,162, 82 




NM ' 


1180 data 236. 165.252,197,254.208,230, 96 


HB 
AA 


2590dalal69, 0,141, 0.255, 32,125,255 
2600data141, 83, 67, 82, 65, 84, 67, 72 








Listing Two 


EJ 


2610 data 32, 83, 84, 65, 82, 84, 73. 78 








HJ 
NM 


2620 data 71, 32, 87, 73, 84, 72, 32, 80 
2630 data 71, 77. 32, 78, 85, 77, 66, 69 




JJ 


2000 rem save " 0:bas dram.ldr " ,8 




OE 


2010: 


EM 


2640 data 82, 32. 63, 32, 0, 32,228,255 




LH 


2020 lor 1=^2956 to 3571: read x; poke|,x' 


LI 


2650 data 201 , 0, 240, 249, 32. 21 0, 255, 201 






ch = ch + x: nexi 


PG 


2660 data 48,144, 39,201, 58,176, 35, 41 




JJ 


2030 it ch<>69893 then print " checksum error " 


NO 


2670data 15,205,223, 13,176, 28.141,223 




MG 


2040; 


DN 


2680 data 13, 133,200,230, 200, 6,200, 164 
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KM 


2690dala200, 169, 0, 153,224, 13, 153,225 


FO 


2160data229,200, 10,168,133,167,185, 46 




FP 


2700 dala 13,200,200,192, 20,208,244, 76 


MO 


21 70 data 202, 162, 18, 32,144,201,185, 47 




LK 


2710data182, 12, 32,125,255,141, 18, 73 


HA 


2180data202,232, 32,144,201, 56,165, 45 




DD 


2720 data 78, 86, 65, 76, 73, 68, 32, 80 


CJ 


2l90data133,253.229, 43, 32,142,201,165 




AD 


2730data 82, 79, 71, 82. 65, 77, 32, 78 


'DE 


2200data 46.133,254,229, 44, 32,142,201 




Bl 


2740data 85, 77, 66, 69, 82. 27, 81,141 


EO 


22l0datal65, 43,133,251,165, 44,133,252 




KJ 


i 2750data 0, 32, 142, 201, 76, 182, 12, 216 


MO 


2220 data 160, 0, 177,251, 32,142,201,230 




EO 


2760data169, 127, 141, 13,221,172, 13,221 


IK 


2230data251,208. 2, 230,252, 165, 251, 197 




KL 


2770 data 32, 61,246, 32,225,255,208, 8 


KA 


2240 data 253, 208, 239, 165, 252, 197, 254, 208 




, JB 


2780 data 169, 147. 32, 210,255, 108, 0, 10 


KP 


2250data233, 164, 167,200,200, 162, 18, 32 




NO 


2790 data 76, 51,255, 0, 0, 0, 0, 


NM 


2260 data 1 58, 201 , 1 33, 252, 1 53, 46, 202, 232 




OL 


2800 data 0. 0. 0, 0, 0, 0, 0, 


GO 


2270data 32,158.201,133,251,153, 47.202 




IM 


2810 data 0, 0, 0, 0, 0, 0, 0, 


1 

LB 
GA 


2280data169. 187, 160,201, 32, 30,171.169 
2290data 0,174. 45,202, 32,205,189,169 








Listing ihree 


LF 


2300da1a203, 160,201, 32, 30,171, 56,169 








HD 
BJ 


2310 data 128, 229,251, 170, 169, 62,229,252 
2320data 32,205,189,169,207,160,201, 32 




ND 


1000 rem save"0,64memdfam.ldr",8 




GO 


1010; 


ND 


2330data 30,171,238. 45,202,162,128,108 




HG 


1020 for j = 51200 to 51374 read x: pokej.x: 


HB 


2340data 29,200, 32,115, 0,176,246, 41 






ch = ch-t-x: next 


GC 


2350data 15,205, 45.202,144, 3, 76,132 




CJ 


1 030 It ch<>26408 then print " checksum error ' 


MM 


2360data201, 10,168,185, 46,202,162, 18 




El 


1040: 


KN 


2370 data 32,144,201,232,185, 47,202, 32 




HD 


1050 data 32, 152,200, 165,170, 133,251, 165 


Al 


2380 data 144, 201, 32,156,201,133,253, 32 




KE 


1060datal71. 133,252, 96, 32,152,200.165 


HI 


2390data 156,201, 133,254. 24,165, 43,133 




NF 


1070 data 170, 133,253. 165, 171, 133,254, 96 


HG 


2400 data 251, 101,253, 133,253, 133, 45, 165 




Ji 


1080 data 32, 141,200, 165, 169, 133, 167, 165 


Ml 


2410 data 44. 133,252, 101,254, 133, 254, 133 




G 


1090 data 170, 133, 168, 162, 18, 32, 115,200 


DK 


2420dala 46,160, 0, 32,156,201,145,251 




CO 


1100 data 232, 165, 167, 32, 115,200, 160, 


CG 


2430 data 230, 251 , 208, 2, 230, 252, 165, 251 




P 


1110data165, 171, 48, 37,177,251, 32,113 


CP 


2440 data 197, 253, 208, 239, 165,252, 197, 254 




DE 


11 20 data 200, 230, 251, 208, 2,230,252, 165 


AA 


2450 data 208, 233. 32, 51,165, 76,229,200 




BN 


11 30 data 251, 197,253,208,239,165,252, 197 


OA 


2460 dala 169, 238, 160,201, 32, 30,171, 32 




FJ 


11 40 data 254, 208,233, 162, 18, 32, 129, 200 


DP 


2470da1a228, 255, 201, 0, 240,249, 32, 210 




NH 


11 50 data 133, 252,232, 32,129,200, 133,251 


EF 


2480 data 255, 201, 48.144. 39.201, 58,176 




DM 


lieOdata 96, 32,127,200,145,251,230,251 


JL 


2490data 35, 41, 15,205, 45,202,176, 28 




GH 


11 70 data 208, 2,230,252, 165,251, 197,253 


KJ 


2500 data 141, 45,202. 133, 167,230, 167, 6 




ON 


1180 data 208, 239, 165,252, 197,254, 208,233 


PF 


2510 data 167, 164, 167. 169, 0, 153, 46,202 




BE 


1190dala 96,162, 31,142, 0,214, 44, 


LP '. 


2520data153, 47,202,200.200,192, 20,208 




OO 


1200 data 214, 16, 251, 141, 1,214, 96, 162 


DE ' 


2530 data 244, 76, 229,200, 169, 19, 160,202 




NB 


1210data 31,142, 0,214, 44, 0,214, 16 


JN 


2540 data 32, 30,171, 76,229,200,162, 31 




BP 


1220data251, 173, 1,214, 96. 32,253,174 


LO 


2550data142, 0,214, 44, 0,214, 16,251 




BB 


1230data 32,158,173, 32,170,177,132,169 


CP 


2560data141, 1,214, 96,162, 31,142, 




GG 


1240dala 32,253,174, 32,158,173, 32,170 


JC 


2570data214, 44, 0,214, 16,251,173, 1 




AE 


1250 data 177, 132, 170, 32, 253, 174, 32, 158 


F 


2580data214. 96,141, 18, 82, 65, 77, 32 




FH 


1260data173, 32,170,177,132.171, 96 


HI 
OP 


2590 data 68, 73, 83, 75. 32, 70, 85, 76 
2600data 76.141, 0,141, 83, 65, 86, 69 








Listing Four 


LK 


2610data 68, 32, 80, 82, 79, 71, 82, 65 








BD 
HM 


2620data 77, 32, 0,141, 32, 32, 0, 32 
2630 data 66, 89, 84, 69, 83, 32, 82, 69 




BA 


2000 rem save " 0:64bas dramldr " ,3 




OE 


2010: 


JM 


2640 data 77, 65, 73, 78, 73, 78, 71, 32 




MF 


2020 for j = 51 200 to 51777: read x: pokej,x: 


IN 


2650 data 73, 78, 32, 82, 65, 77, 32, 68 






ch = ch4-x: next 


BO 


2660data 73, 83, 75, 32,141. 0,141, 83 




JI 


2030 if ch<>67582 then print " checksum error " 


AP 


2670 data 67, 82, 65, 84, 67, 72, 32, 83 




MG 


2040: 


HO 


2680 data 84, 65, 82, 84, 73, 78, 71, 32 




MN 


2050 data 120, 173, 0, 3,201, 139,208, 19 


GO 


2690 data 87, 73, 84, 72, 32, 80, 71, 77 




FE 


2060data141, 29,200,173, 1, 3,141, 30 


BA 


2700 data 32, 78, 85, 77, 66, 69, 82, 32 




BB 


2070 data 200, 169, 31, 141, 0, 3, 169.200 


NO 


27l0data 63, 32, 0,141, 18, 73. 78, 86 




CF 


2080 data 141, 1, 3, 88, 96, 0, 0,224 


DA 


2720 data 65, 76, 73, 68, 32, 80, 82, 79 




BP 


2090data 11,240, 3.108. 29,200, 32,121 


GB 


2730 data 71, 82, 65, 77, 32, 78, 85, 77 




A 


2100 data 0, 201, 147,208, 3, 76, 234,200 


BE 


2740data 66, 69, 82,141, 0, 0. 0, 




PL 


21 10 data 201, 148,240, 21, 169, 1, 133, 122 


Ml 


2750 data 0, 0, 0, 0, 0, 0, 0, 




FC 


2l20data 32,121, 0,201, 83,208,228, 32 


GJ 


2760 data 0, 0. 0, 0, 0, 0, 0, 




MB 
LL 


2130data115, 0,201, 67,208,221. 76, 72 
2140 data 201, 173, 45,202,201, 10,144. 10 


fE 


2770 data 0, 








LO 


2150data169, 170, 162,201, 32, 30,171, 76 
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AmigaBasic Function Plot 

Chris Zamara, Technical Editor 



An Auto-Scaling Plotting Demo 



This program wil! open a new window with all the standard 
gadgets and display the graph of a function within il, 
including the X and Y axes. The graph always fills the entire 
window, and will re-plot to a new size if you resize the 
window with its sizing gadget. The function to be plotted is 
defined in the program with a DEF FN statement, over a 
range of X values defined by the variables DOMAIN I and 
D0MAIN2. 

Before plotting the function, the program finds the highest 
and lowest values of Ihe function so that it can scale to the 
size of the outpul window. The message "Scaling, . . " will 
be printed while this process takes place. After scaling, the 
function is plotted, taking up the entire height of the win- 
dow, with the lines X=:0 and Y = plotted in colour 2 
(default colour black). You can move the output window 
around with the drag bars in the usual manner, and if you 
re-size the window, the program re-plots the function to fill 
the window at its new size. Since the function is only re- 
evaluated for each pixel in the width of the window, you'll 
find that the function plots fabler when the window width is 
smaller. 



window. Or, you can just remove the line altogether, using 
the BASIC window with its original size and title. 

To set up the function to be ploned, just change the DEF FN 
function definition as shown in the listing, and change the 
DOMAIN 1 and D0MAIN2 variable assignments to define 
the start and end X values for which the function is evalu- 
ated, as listed, the program will plot the function Y = SIN{X) 
from to 2tt, which is good for demonstration purposes but 
a bit boring. Several other functions appear as comments, 
along with recommended domain parameters. Take out the 
comment character " " " (apostrophe) and comment out the 
"DEF FN Y(X)-SIN(X)", Ihen set up the DOMAINl and 
D0MA1N2 variable assignments to try one of the listed 
functions. 

The program usesmany of AmigaRasic's advanced capabili- 
ties. It uses no line numbers or labels, using control struc- 
tures to control program flow. The scaling and plotting are 
done by local procedures, which only affect the required 
variables and produce no side effects like a standard BASIC 
subroutine does. 



When the output window is first opened by the program, it 
is sized so that a function is aspect-ratio corrected. That is, 
the X and Y co-ordinates are the same size on the screen, if 
not the same number of pixels. Thus, the function Y = X will 
describe a true 4,5-degree angle. This, of course, can be 
changed by re-sizi[ig the window, stretching the functioti in 
the X or Y direction. 

The output window is opened and selected by the following 
line in the program: 

WINDOW 2.litle$,(5,10)-(502,115),31 'new window 

The above command will open a NEW window, leaving the 
standard BASIC window in place. The window is also auto- 
refreshed: moving it around won't mess up what's inside. 
That takes up a lot of memory, so if you only have 2,^6K, 
you'll have to change it to WINDOW I . replacing the BASIC 



The only bug I know about is that sometimes the funetioEi 
will re-plot twice after a window re-sizing operation. It 
probably occurs when the window is re-sized between 
checks for window width and height. 

The method of providing the function to tlie program is 
obviously primitive. A more polished program could easily 
grow from the humble bit of code presented here today. 
Pull-down menus could be used to select functions and the 
domain of the functions. A good idea might be a kind of 
"function construction kit", pulling out individual terms of 
an equation and combining them to create the desired 
function. Another good idea might he to allow different 
functions to be plotted on different windows, or maybe on 
the same window. A fairly easy feature to add would be a 
magnify function: pick a start and end point on the graph, 
and re-plot the chosen section. You could also get it to plot 
pre-calculaled data from DATA statements or a disk file. 
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' function p o1 from Transactor Magazine 


SUB scale(range1 , range2) STATIC 


' this program may be freely disributed 


' find max and mm. y values of function 


'Mar86-CZ 


' from domain 1 to domain2 


' Plots any function and scales 




' to the size of the output window. 


SHARED domainl, domain2 


■ 


SHARED FN yO 


' Set the function using DEFFN below 




' and set the range of X vafues 


PRNT"5caing. . " 


' with the "domainl ' and 'domain2' variab es. 


s = (domain2-domain1)/W ND0W(2) 


p 


rangel = FNy(domafnl) 


pi =3.141592 


range2 = rangel 




FOR x = domainl TO domain2 STEP s 


'put your function be ow, . . 


y = FN y(x) 


titeS = "'y = sin(x)" 'output window title 


Fy< rangel THEN rangel =y 


DEF FN y(x) = SIN(x) 'use to 2'pi for domain 


F y > range2 THEN range2 = y 




NEXTx 


'. . .or try one of these 


END SUB 


'DEFFfMy{x)-SiN(x) + C0S{2»x) domain = {0, 2'pi) 




'DEFFNy{x) = SIN(x) + 2'SIN(15*x)'doma[n = (-pi, +pt) 




'DEFFNyM = -5*x-2'x*x-3*x*x*x 'try (-10, +10) 


SUB P otGraph rangel , range2) STATIC 


' DEF FN y(x) = SQR(9-x-x) (-3, +3) 


' Plot Graph of function Y to scale 




' of current output window 


'.,set the domain of X va ues here 




domainl = 'x start 


SHARED domainl, domain2 


domain2 = 2*pi xend 


SHARED FN yO 

window.width =WND0W{2)-1 




'make new window to disp ay graph 


window.height = W ND0W(3)-1 


WINDOW2,Htle$,(5,10H502J15),31 ^new window 


X.scale = (domain2-domain1)/ window, width 


'find highest and owest y values for scaffng 


Y.scaie = window.height/(range2-range1) 


CALL scate(range1 , range2) 


Y.zero = range2'Y.scae 




X,zero = -domainl/X. scale 


prev.wfdth = 0: prevheighl^O 




WHILE 1 continuous loop 


'draw axis: lines y ^ and x = 


new.width = W ND0W(2) 


CLS 


new.height = W ND0W(3) 


LINE {0. Y.2ero)-(window,widIh, Y.zero),2 


'plot graph if window is re-slzed 


L NE (X.zero, 0)-(X.zero, window.height).2 


IF new.widthOprev.width OR new.heightO prey.height THEN 


'plot first point 


CALL PotGraph(range1, range2) 


PSET(0,Y.zero-FNy{domainl)*Yscae) 


END F 


'now plot whole function 


prev.width = new.width 


FOR x. pixel = TO window.width 


prev.height = new height 


X = x.pixehX.scale + domainI 


WEND 


y = FN y(x) 


1 
1 


y.pixe = Y.zero " y*Y.scae 




LINE -(x.pixef, y.pixef) 




NEXTx,pixe 




END SUB 



\ Th»TrqfWQCfor 



43 



Jiiy 1996: Volume 7, bsu* 01 



Kernel Routines 


Liz Deal 


InTheB128 


Malvern, PA 


This is a list of 46 KERNEL routines in the BI28. It is somewhat 


Unless otherwise noted, long addresses are normally sent/ 


different from the list in the Proteclo/CBM Guide. Most of the 


returned in this order; A - bank*', Y- high byte, X = low byte of 


routines in the B128 are similar to the C64, but some call 


address. 


addresses have been changed, setup registers sometimes differ, 




and there is more impact on the registers than was the case 


Usually in zero page, it is kept in the lo-hi-bank order. Often a 


with the C64. This list is also valid for the B256 models which 


register points to the first of the three bytes. 


have the same Kernel ROM as theB128. SomeB256 machines 




{in Europe) may have a different Kernel ROM, They can be 


A, X, Y are data registers. If unchecked, it means, positively, 


disljnguished froin the most recent version by the presence of 


that the routine has no effect on the register. The "C" column 


code in the "patch area\ $ECB0-ECE8. 


refers to the carry flag. (( is a rare subroutine that does not affect 




the C status. So to avoid ambiguous clutter, the only time C is 


Making this list would not have been possible without help 


checked off is when it means something, f^uch of the time in 


from Jim Butterfield in the form of memory maps and a superb 


the I/O routines C indicates an error, but ST does the job better 


disassembler. 


-it may show an error while C is clear. ST = 6^ at the end of file; 




this is not indicated in the table below. 




Jumbo Jump Table in Chronological Order - CBM names 






ff6c jmp $fe9d ;lxjump transfer of execution jump 


ffb7 


imp Sfb4a ; 


leadst read/sel st 






ffCif imp $fbca ;vTesel power on/off vector reset 


ffba 


imp Sfb43 ; 


.setlfs set files la, fa, sa 






ff72 imp $fe33 ;ipcgo loop for ipc system 


ffbd 


jmp S!b34 


.setnam set file name length and adrs. 






ff75 jmp Se022 ;fiinkey function key vector 


ifcO 


imp ($3061 Sf^bf 


open open logical file 






ff78 jmp Sfcab ;iprqsl send ipc request 


ffc3 


jmp (S308) SfSed 


.close c ose/aborl logical file 






fJ7b jmp$[9]b joinit i/o initialization 


ffc6 


imp(S30a) Sf549 , 


,chkin conned input channel 






ff7c jmp Se004 ;dnt screen inilializalion 


ffc9 


jmp(S30cl Sf5a3 


.chkour connect outpur channel 






11H1 jmp $f400 ;alocal allocalion of memory 


[fee 


jmp($30e| if6a6 


.circhn/restio reseE default i/o devices 






ffS-l jmp Sfba9 ;veclor read/sel i/o vectors 


ffcf 


jmptS310) Sf49c 


;chrin/basin/inpul input a byte from open ch 






ff87 jmp Sfba2 ;reslor restore t/o vectors 


Efd2 


jmp(S3l2) Sf4ee 


.chrout/basout output a byte to open ch. 






ffHa jmpSf660 ;lkupsa matcJisa 


ffdS 


jmp(S3!a) Sf746 


Joad load from file 






ff8d jmp Sf678 .Ikupla match a 


ffdS 


jmp($31r) Sfa4c 


save save to file 






fl9(} jmp SfbSa ;sefmsg enable /disable os messages 


Efd8 


jmp Sf90e 


isetiim set TOD dock 






ff9:* jmp ($324) Sf274 ;second send sa afler listen 


ffde 


jmp $f8e6 


,rdtim read TOD clock 






\m jmp(S326) Sf280 .talksa send sa after talk 


ffel 


jmp ($314) Sf96b ; 


.stop check STOP key 






ff99 jmp Sfb78 ;memlop sel/read Eop oi memory 


ffe4 


jmp ($316) Sf43d 


gelin get byte from KB or channel 






ff9c jmp SfbSd ;membut sel/read bottom oE memory 


ffe7 


jmp ($318] Si67f 


;clall close or abort files 






ff9[ jmp SeOn ,scnkev scan keyboard 


Efea 


jmp $1979 


udtim last row KB scan 






ffa2 jmp Sfb74 isettmo set ieee timeoul 


ffed 


jmpSeOlO ; 


.scrorg/ screen return screen stze 






ffaS imp ($328) Sf30a ;acpfr ftandsliake ieee byte in 


fffO 


jmpSe019 ; 


,p ol read/sel cursor position 






ffa8 jmp ($32a) Jf297 ;ciout handstiake ieee byte out 


fIfS 


jmp$e01c 


.iobase return i/o base address 






ffab jmp (132c) Sf2ab ;untik send unta klo ieee 










ffae jmp (t32e) Sf2aE ;\in\sn send un istea To ieee 


fff6 


sta SO:ns ;goodbye goes to another bank 






ffbl imp ($330) $f234 ;listen send listen to ieee 


fff9 


.byte 1 






\M jmp(S332) $f230 ;talk send talk to ieee 


fffa 


Hardware veclors: nmi Sfb3l , reset Sf997, irq Sfbd6, 
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CBM 


Jiirii]' 


liiH 
.iilili 


Re.il 


OfH^ralion Delails 

1 m-^^^m^^^^^ 


IN 
AXYT 


MOf) 
^ X Y (^ 

1 


Mon 

ST 




AcrrH 


FKAf^ 


■m 


i:iird 


rifihvit^lrornfF-ti:: 


fjui C = 1 dnd ST - J d li(Fie[>u1 


^ ^ ^ ^ 


a - - r 


w 


ALOCAT 


FI-HI 


— 


r-ifn) 


AllcKrfU' VX bvr+'sftlaiiveroiopof ust^r rnrninry 


kn' X-low Y - hLs^h 

uul:C-l ifldJIetllust^MKMTOF^l 


- X V - 

r 


rt x y c 




CHKIN 


ffg; 


JOa 


rsiy 


1 ^^^^^^^^^^^^^^^^^^^^" 

. Open c-hriiiELd Inr input 


in X^ logical file^ 

nul:C = 0]fkeytkjardorRS232 

il EFKE. C - 1 il ntN lile.iLO ih^vke 


- X - - 


d X - C 




■ CHKOliT 


i'fO) 


•Mk 


fr>n;! 


OfN^n charmt^l Im oulpul 


IseelMKlN) 


- X 


ax — 




<^}IK1N 


i'l'Cf" 


Jill 
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a - - c 


w 


(HRUUT 
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flee 
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0Ul:C = (»jfstift^r3urltKK[LJseST) 
RS232JiSTOPpediLarnsC=l 


a - - - 


c 


X 


CI NT 


VVIF. 
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Inihatj7c screen ediUtr, top ol user memorv. funrtiui 


1 kevs 


^ 
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1 CHIUT 


KF-AK 
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[B7 
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1 


- — c 


* 


CLALL 


FFE7 


JI8 
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Ln A = dev'.C-<labur5s.chH-.<LPCHN 

C=^ 1 dotes unlit error. J horls hlesiifleT|irslerr[>r 


a - - c 


a X V c 

r 




. TLOSF 


FFr:t 


:s()S 


fr>ecJ 


rirps(= one lite 


Ln A-krfi f]le',C-(fak>nsfile,C=l reak"k>v^rilt^ 
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a X V - 


+ 


n.KC'HN 


FFCC 


lOe 


fi^ji; 


Rrsiore ddduJi de\ K"e*> 




r 


Hi >; - - 




1 FUNKKY 

1 
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^^" 


efi!8 


Mnnf/Edii lundion key dcfinilions 


Pnnljlldiis-iii;Y = I 
Fdilk^y- Ln;V.k*'>' 
A -- v.vui \ig plr Hi leii^lh i>t din .ind long dddr 


- - y - 
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a X y - 
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■ OK.TIN 


FFF1 
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Gvi a [>yle 


ouCXYiiriiMrtil^i}iriRH2:i;:/lKKK 
C-"iM k^ytHiflrd.RS2;i:?.]RRF.(MS4'STf 


^ 


a X V - 


4 


lOi^A^SR 


Fi'F:! 


— ^^ 


t'OSfl 
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nn(-h,inklii.X = low,Y-hii^h rtddr 


^ ^ , - 


- >: V - 


KIINIT 


FF7B 


w.- 


fiifrj 
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4 il V - 




IPCCiO 
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^^_ 


fe:n 


lJ>(^p lijr other process^ir 




& X y - 




ir'WQ.ST 


FK7K 





frafk 


StMulipt reque-J 




J X V - 




IJ.STFN 


FFBI 


3:mj 


m^ 


MjkelKtiE device Iksten 


Lu. A-devue' 


a 


a — - 


4 


LKUPL\ 


vvm 


— 


H\7H 


Lookup parziinelers lor IjIg' 


tn A = lc^ litf" 

rjLiI A ki« <il.'". X-d.'^-Y-sf^,iddr,C-] ilnihfiii'EA 


a 

1 


a X y f 




LMif'^A 


Kf-'HA 


— 


fliN) 


IjK^kup parameh'rs on known s^c jdctrs 


in' Y-accondarvHiddress 

rnil;A = lirti fill-' ^ ili'v"V-s«.rt(Mr, r- 1 irinj fiJE' mattliesSA 


--y- 


a X y (. 


* 


\i)M) 


m:^ 


:iiri 


[7ni 


Load alter call ro SETi>^S..SETNAM 


in; A bil7 = 0f(j lihid [jj(7=l ifj verify, ljils(»-:idfsi Uuk' 

\\ = dcslJri(ih£trL rtililr hii,iik[X - V - SFFloio^d cil hinder dridr) 
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rt xy- 
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vimmy 


hVX 





rtiHd 


Read/Set botlom ot niemor>' 


read; C = 1 , A,V,X - lyng address 


i X y < 
c 


a X y - 




MKMroP 


FFIIS* 
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lb7S 


Read/Sel lup u( mem^J^^■ 
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i X y f 1 


a X V - 




OPEN 


FFCO 


\m 


ij;bi 

1 


(tj^-na It^icat file 


kn; C = Ok>r n'JmiHj! i>\yfu 


t 


axy - 




PLOT 
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* 
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d X V - 
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FFKI) 
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p 
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— 
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»n .A = lt^ ftle*.X = dei^*. V^-sec^iAJr 1 


a X V - 
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— 
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SKTNAM 


|-F[!ll 




H):i4 


:wi til^ name 
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a X - - 
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StTrMd 


FFAL> 


-^* 
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a 







STOP 


FF[-:i 


3M 
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/- ] ifSTOPuw^cl, XilMiL^edb) call ^^J TLRCHN 




ax — 


TALK 


fFRl 
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r2:i() 
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a 


a 


w 


1 1.KSA 
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A 


a 


* 
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fefkl 
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— 
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FFAK 
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^ 
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in: C^Omovct user list at AYX to vector are?* 

C- f iTlove:>veclors([>Hiddr AVX 


a X y t 
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Unmasking The Kemal 



John Russell 
St. John's, NF 



- A collection of notes about using the I/O routines 



Every programmer who takes up machine language soon runs into those 
puzzling phenomena known as the "Kernai Routines". Those who have 
already attained enlightenment use them with abandon and urye olhers to 
do the same, but they can be pretty darn confusing if you have barely 
passed the "LDA "SOO" stage. At least, they were to me, armed as I was 
with only a C64 Programmer's Reference Guide and a copy of Supermon 

[ was by no means an overnight success at learning machine language. At 
first I shunned the machine language section of the Guide as if I was afraid 
the pages would bite me. But older, wiser heads assured me that if I 
progressed to the point where 1 needed speed beyond that of Basic, I would 
have to become involved with machinelanguage. I was tough to convince, 

but eventually 1 was gripped with curiosity. 

And so one day I decided to give M-L a try. i studied carefully the 
explanations and examples from the Reference Guide. I fiddled with 
Supermon. I printed the alphabet. I changed the colour ol the screen, and 
finally figured out what numbers such as $D020 stood for. I memorized the 
mnemonics and their functions, I printed the alphabet again. But it was 
here that I was slopped cold, because I couldn't really cause anything to 
happen (aside from changing (he screen colours and the ever-popular 
alphabet priming) I needed two things : y-indexed loops and Kernai 
Routines. The former were described well enough in the Guide, I just had 
to think a bit about where to use them; The Kernai Routines, however, were 
downright confusing. This might not seem like a major crisis - who needs 
them, anyway^ What exactly do Ihey do^ Well, the easiest way to explain it 
is to say that without them, the only way to make the computer communi- 
cate with the outside world (i.e. you or another user) is by poking 
information either to screen memory or to the mysterious "CIA chips" (one 
bit at a time!). This did not seem to me to be a real possibility, so 1 set about 
to figure out exactly what the Kernai was all about. 

Don't laugh, but I thought that Supermon would understand the names of 
each routine, sol had commands like "JSRCHROUT" without benefit of an 
assembler (Supermon, Micromon et ai, with their narrow format for 
entering instructions, are monitors). 1 couldn't figure out the order of many 
sequences. There are a host of routines that can be used to access the disk 
or printer, and just to be safe, I would always use as many as I could. 
Needless to say, it was a nice while before 1 could do anything with the 
drive or printer, 

MybiggeslbeefwasthaTmany important routines, like "CIRCHN" are not 
identified as important, and routines like "LISTEN" (which 1 have never 
once needed to call directly) are not identified as urinecessary. How could 
that be a problem, you ask? I "listened" and "unlistened" my drive to death 
but never did a "CLRCHN", so 1 always ended up with a locked up 
computer, an error light, and a star file in my directory. 

The universal input/output routines are not identified as such, so I could 
never decide which one was the right one (CHROUT and GETIN are 
always best, with one exception - simulating a Basic INPUT statement). 
Also, there was no step-by^step guide to opemnga file and performmg I/O 
functions. 1 ran out of stack space in my head trying to follow all Ehose 
preparatory routines back to the beginning And putting " ,s,w " or " ,p,w " 



in the filenames in order to write anything to the disk escaped me for quile 
some time. 

An extreme case? Learning disabilifies? 1 was beginning to suspect that 
such had to be true. In contrasl to my quick grasp of commands and 
techniques in Basic, 1 was a snail at learning machine language. 

Looking back, I can see that it wasn't really that bad. Once 1 learned Ihe 
op-codes and the different types of indexing 1 could do anything 1 wanted 
to, limited only by my knowledge of the 64's input/output chips. Now 
when I'm asked questions about machine language by learners, I find I'm 
able to give detailed answers without referring to memory maps or the 
Guide ^ because 1 was forced to figure such things out for myself and test 
them by trial and error 

1 suspect that everyone has similar problems, at least starting off. And 
accessmg the Kernai Routines properly is likely to be the highest hurdle 
you'll have to clear on your way to becoming a proficient M-L program- 
mer. 

So: here's my guide to using Kernai Routines. 

- Learn the hex addresses of the important routines Using the symbolic 
labels in an assembler such as PAL is all very well and good, but you'll 
have difficulty understanding disassemblies or olher people's code other- 
wise. 1 find "jsr SFFD2" just as easy to type and recognize as "jsr 
CHROUT". 

- However, those who have access to an as.sernbler can save themselves 
lime and bother by assigning labels to imponant routines early in a 
program (eg OPFN = SFPCO). For those who do programming which 
makes extensive use of the Kernai, save a PAL symbol table or a Library 
file (for the Commodore Macro Assembler) which consists of nothing but 
Ihe labels and addresses of frequently used Kernai routines. Use a" 1st " in 
PAL or ".lib" in the Macro Assembler to have ihe labels assigned automati- 
cally. 

- To print a character to any device (including screen) use CHROUT 
(SFFD2). No need to ever use ClOUT, LISTEN, or SECOND, because the 
routine af SFFD2 checks fo sec if the character is going to disk or printer 
and calls these routines when they arc necessary. 

- To receive a character from any device (including keyboard) use GETIN 
(SFFE4). This does away with the need for ACPTR.CHRIN, TALK, UNTLK, 

and TKSA, for the same reasons as above, 

- Of course, this means that any time you want to send to or get from disk, 
printer, modem, etc. you must first indicate this to Ihe computer (Ahaf you 
say|. After a file has been opened, use CHKIN or CHKOUT to select that file 
for the proper operations. To avoid serial bus confusion, use CLRCHN first, 
it's easier to remember if you put in a routine called "toprinter" or 
^Tromdisk" which will call CLRCHN, then CHKlN or CHKOUT whenever 
necessary (or if you're not sure where your data is going to or coming 
from). 
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- The friendliest routine to use boih belore and alter doing disk or printer 
work is CLRCHN (SFFCC), Anytime you perform input or output to 
peripherals, use this afterwards to make sure input and output go back to 
key board /screen. Use it often; you can never be too carefuL 

- Use CHRiN only as the equivalent ol a Basic input statement, and in 
exactly the way it's shown in examples. This is a bizarre routine which can 
have unpredictable results if not handled carefully. Try calling \t a single 
time if you're not convinced. 

- When using LOAD and SAVE, don't use OPEN first. They perform OPEN 
automatically, 

- CLALL doesn't always do what you'd expect. Use the CLOSE routine on 
eachindividualhle. If you're lazy (like me), haveseveral files open, or have 
a program crash with the drive light on and file number unknown, OPEN 
the disk command channel, then CLOSE it. This doses all open files to the 
disk, so never CLOSE the command channel if you're not finished with 
your other files. 

- If you are sending disk commands, using block read or write, checking 
the error channel, or anything that requires you to have the command 
channel to the disk open, keep it open for the duration. It can't hurt, and 
you will suffer no ill effects if it isn't closed at the end. There will, however, 
be nasty surprises if you close it before finishing up with your other files. 

- Sending a command to the disk is most easily done by setting the 
filename to be the command (e.g. "sOitest") before performing the OPEN, 
Then simply open the command channel. If no command is lo be set, use a 
filename of length zero. Disk commands after the first must be printed to 
the channel, as in the Basic command print'15, ' iO " . 



*** 



- below IS equivalent of. 'open 8,8,8, "name 



fl <* ■ V )»• 



Ida 


#$08 


Idx 


#$08 


Idy 


#$08 


isr 


$ffba 


Ida 


#$0a 


Idx 


#<name 


dy 


#>name 


jsr 


Sffbd 


jsr 


$ffcO 


Idx 


#$08 


jsr 


$ffc6 



;thetile number the computer refers to 
, device number 8 - the dnve 
isecondary address 8 anything other Than 
15, 0, or 1 IS safest 
setlfs - use the above numbers 
10 chars in filename 
the $34 in an address like $1 234 
the $12 in an address like $1 234 
set the file's name 
do the actuaf opening 
file #8 (NOT device 8) 
chkin - ignore keyboard, receive charac- 
ters from file #8 



(routine using $FFE4 lo read from file) 



; **■* close file* 8 "" 
jsr $ffcc 
Ida #$08 
jsr $ffc3 
rts 



finished with disk for now 
file #8 again 
close file #8 
and we're done 



name = * ;filename goes below 

asc "Olest,p.r" 

NB; users of monitors must poke Iheir 
tifenames into memory and figure 
out the hex addresses themselves 

Tosavememorytrom$1234 to$5678as "prog" on disk. 



- The READST routine ($FFB7) is used mainly to detect the end ol a file 
(this is the cryptic "EOl line" mentioned in the C64 Guide; it stands for 
"End Or Identity"). A loop usini^ it would [ook something like this : 



gelin = 


$ffe4 




chroul = 


$ttd2 




read St = 


$ffb7 




oop = 


w 




|sr 


get in 


;getachar 


jsr 


chrout 


; print it 


jsr 


read si 


;check status 


and 


#$40 


,is bit 6 (EOl) still c ear 


beq 


loop 


; yes, go back 



- When reading the error channel, a loop must be used to get characters 
until a return (chrS(13)) is received in order to turn off the error light. 

- If you gel "starching for. . ." and similar mes.sages when loading and 
saving with machine language you can turn them off with "asl $9d \ This 
clears a certain bit and avoids the hassle of the 5ETMSG routine. 

- Use drive and flle-lype declarations in filenames to avoid errors - don't 
call It " test " , call it " test,p,w " . The exceptions lo this rule are LOAD 
and SAVE, which don't require file type to be specified. It is, however, 
possible to get a look at a sequenlial file by doing a LOAD of " name,s,r' , 
The resulting program is somewhat garbled, but it can be a useful time- 
saver. 



Start 


= 


$1234 ; 


startot ram tosave 


end 


= 


$5679 ; 


end ot ram + 1 


' 


Ida 


#$08 






tax 








tay 








jsr 


$ftba 


.3 9's, as tn above example 




Ida 


#$06 


6 chars in f i ename 




Idx 


#<name 


lower 2 hex digits ol address 




Idy 


#>name 


higher 2 hex digits 




jsr 


$ffbd 


set the filename 




Ida 


#>start 






sia 


$fa 


; start of save 




da 


#<slart 


,goes into $fa.$tb 




sia 


$fb 


,asb-byte,hi-byte 




da 


#$fa 


ibecause $fa was used above 




dy 


#<end 


;one more than 




dx 


#>end 


;end of save 




jsr 


$ffde 


,now save Jt 




rts 






1 
name 


1 ^ 

f -flT 


* 


;could be anywhere 




,asc 


"Oprog" 


;no file type needed for load S. save 



Notice that when save was used, there was no need to open a channel or 
set an output device. Doing so can lead to a Eilf with file type "del" in the 
directory. 



A few examples (in PAL format) should serve to make things more clear, 
tJsers of M^L monitors should use actual numbers and addresses in place 
of labels. 

To open program file ' test " on disk for reading. , , 



Of course, it's impossible to cover all aspects of the Kernal routines in a 
single article - you could write a sizable manual on their intricate 
workings. The best bet i$ for programmers to refer to a work like the 
Programmer's Reference Guide (hence the name) for detailed how-fo-use 
information and the quirks each routine has And, of course, keep reading 
The Transactor! 
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Kernal Who? 



Evan Williams 
Williams Lake, BC 



I starled compuJlnj^ when FORTRAN IV waJi popular and fhe machine 
filled the basoinen! ol one of the halls on campus. Inleraclivc was d 
word used in leaching, not in program ming. All jobs were run in batch 
mode; you punched your card deck, dropped il off ai midnight, and 
came back aT 3 AM to gel Ihe prinloul. A few of the well-equipped 
physics labs had a PDP-4 model or two, a mmi-computer In [hose 
days "mini" meant really small (like skirls). The PDP series was lucky 
lo have Sk of memory installed, and many had ■Ik. I dropped out of 
computing for a number of years, not being able to alford 2-3 million 
for a compuler or a van to port il around in Then came PF.T I eagerly 
laid out $1200 dollars for one of the first ones lo hit BC. back around 
1978 and look it home lo see what it could do I soon discovered the 
great feeling of being able to change a program the moment a mistake 
was discovered. This was inleraclive programming. To add to this, the 
1*KT has one of the best screen editors ever implemented (long before 
IBM PC or Tl Professional). One Ihin^ led To another, and soon I was 
searching for a way lo boost performance. There is only one really 
practical way lo do this, and that is machine language. 

Whal's a KERNAL? 

Machine language is SUPRR SPERDY compared lo BASIC, bul you 
have to do every lillle thing yourself and it is difficull to make your 
routines as flexible as BASIC, fortunately, there is help, and it resides 
within (lie ROMs included with your computer. This help is in the 
form of a useful set of general- purpose machine language routines that 
perform a variety of functions. These functions are primarily inpul, 
output and internal housekeeping. The routines are set up so thai they 
will acces,s the correct device, passing information back and forth 
from your program in a simple and predelined way. This block of 
machine language routines is the heart of the computer's operating 
system, and in the C-fd has a ROM chip all of its own to live in. 
Around these routines are built many of the functions utilized by 
BASIC or most any other program wrillcn in machme language. 
Because the routines are such a central element of the computer, the 
name KERNAL is applied. Many programming languages exist thai 
have a core of predefined routines that may be used to assemble more 
complex functions. In these languages the central core routines arc 
often railed the KERNAL The method of using these routines in 
Commodore computers is the same, regardless ol which model you 
own. To Commodore's credit, the requirefuents for entering each 
routine and the resuUs have been kept as constant as possible on 
different machines. 



required information to the KERNAL routine. Some routines need no 
setup at all, while others need one or two previous routine calls to get 
things ready. For the purposes ol this discussion we will use the C-64 
jump table as an example. Those of you using other models of 
Commodore computers, particularly the PET series, will hnd the Jump 
table similar, generally containing a subst't of the C-64 jump table. If 
you have a machine language monitor handy for your computer, 
(such as supermon. micromon, etc.) you should have a look at the 
section of memory starting at $FF8l . When this area is disassembled, 
you will find a sequence of "JMP Sxxxx " mstructions where "Sxxxx" 
is an address of either a routine m the ROM or of an indirect jump 
vector. 

in The case of an indirect vector the address of the actual routine will 
be contained in two consecutive memory locations starling with the 
one referenced by the "JMP" instruction. The target address is stored 
in the vector location wilh Ihe low order byte in the low order memory 
address and Ihe high byte in the high order memory location. For 
example, the CHROUT (SFFD2) routine (see table I ) vectors through 
location $0326 by means of a "JMP (£0326)" insiruclion In the jump 
table. When this instruction is executed, the microprocessor will letch 
the two bvles contained in locations $0326 and $0327 and install 
them in Ihe program counter. Program execution will then continue 
starting at this new address. 

A very important feature of the routines using an indirecl jump vector 
is the fact thai the vectors are stored in R/W memory (usually krjown 
as RAM even though ROM's are also Random Access Memory). This 
means that Ihe programmer may change these vectors to point lo his 
own routines, or simply lo a RTS instruction so as to disable a routine. 
"Patching" these vectors is a simple and ellective way of adding or 
modifying the operation of the compuler operating system. As an 
example, new commands may be added to BASIC by changing the 
error message vector ($(}30[]) to point lo your routine. This routine 
would Ihen use the CHRGET routine lo re-gel Ihe olleiiding statement 
and compare it to your list of valid commands. If no match were found 
then the accumulator value would be restored and conlrol passed on 
to BASIC by JMPing to the normal error routine ($F:J8B). Another 
technique lor changing KERNAL vectors, particularly Ihose using 
direct JMP commands, is to copy the KERNAL to the underlyirig RAM 
and swiichuig off the KERNAL ROM It is now possible lo change 
anything you wish in the KERNAL including any and all jump table 
vectors. 



The Jump Table 

The jump table is the way by which all KERNAL routines should be 
called. This table is a sequence of ML jump instructions found near the 
top of memory. They are in the same place in all Commodore 
computers except for routines that are unique to a specific machine. 
To call a KERNAL routine one must first call any prerequisite routines 
riud then load ceridin registers with byte values needed to transfer 



Using The KERNAL 

Most of the KERNAL routines require some form of setup before being 
called. Some, however, do not. Generally, the routines that reset or 
clear something do nof require any preparation. For example, the 
RESTOf^ routine does not require any prior KERNAL calls or register 
setup. Wheji called, it will rewrite the jump table vectors starting at 
$0300 to the default values. An idiosyncrasy of the manner in which 
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this roiiline is written causes il to also write the jump table vectors to 
RAM locations SFD30-SFD4F. This happens because the routine 
VECTOR uses part of the same code and is written to allow moving of 
the vectors. As a result, if you have anything important stored in 
$PD30-$FD4F it will be over-written when RESTOR is called. RESTOR 
is one of the routines called when the keys RUN /STOP-RESTORE are 
pressed. (You will notice these bytes being over-written if you view a 
high-res screen at SEOOO, then RUN /STOP-RESTORE and view it 
again,; 



More commonly, the KERNAL routines require some register setup 
before use. Probably the most-used such routine and perhaps the 
most complex is CHROUT ($FFD2). This routine is used to output a 
single character. The byte value of the character is placed in the 
accumulator with a LDA XX command and CHROUT is called using 
JSR SFFD2. If printing on the screen is desired, no other setup will be 
required. The CHROUT routine will examine several flags to find out 
what channel is to be used. If no channels are open or enabled, 
CHROUT will Ihen examine the byte value and determine if it is a 
control character, 

I! not, the correct screen location will be calculated, the character 
translated to the correct screen code, reverse printing checked, the 
value placed in screen memory, the color memory updated, screen 
scrolling checked/done, line link table updated and more. When 
done, CHROUT and all other KERNAL routines return with an RTS 
command. 

The nice part is that the programmer does not have to worry about 
any of this. The KERNAL does il for you. Another well used routine is 
GETIN. This functions in almost the same manner as the BASIC GET 
statement. When GETIN is called, with no channels open, a single 
character from the keyboard buffer will be returned in the accumula- 
tor. If the keyboard buffer is empty, the value zero will be returned. 

PROGRAM 1 

Program 1 is a simple input routine in machine language which uses 
the GETIN routine to fetch characters from the keyboard buffer. The 
program exits when a return is pressed. Only alpha-numeric input is 
allowed with no control or cursor characters recognized or printed. 
Unlike the BASIC input routine this program will accept up to 255 
characters as input. It is not possible to move off the line as only the 
delete key may be used to edit. When the return key is pressed, the 
program alters the pointer of the first BASIC variable declared by the 
BASIC program to point at the input buffer. For this reason, the first 
variable declared in the BASIC program should be a string variable. 
Uponrelurnfromthispfogram this first variable will contain the input 
data. The length of input may be controlled by the second variable 
declared in the BASIC program. This must be an integer variable with 
a value range of 0-255. Program I as written will use $Cf)00 to $COFF 
as the input buffer. See table II for entry address and examples of use. 

Program 1 gets all input from the keyboard and puts all output to the 
screen. This is because no input or output channels other than the 
defauh ones have been specified. To get information from some 
channelordeviceotherthan the keyboard, if is necessary to call some 
preparatory routines first Similarly, to output to a device other than 
the screen, some setup is required, 

PROGRAMS 2 and 3 

Program 2 is a low resolution screen dump routine. This program 
opens a file to disk and writes the contents of the screen including 



sprite pointers on the disk. It functions by first obtaining the location 
in memory of the first variable declared in a BASIC program and using 
the contents of this string as the file name/comitiand string to send to 
the disk drive. The KERNAL routine SETNAM is then called lo set up 
system pointers to this string. 

The logical file number, the device number and the secondary 
address are then loaded in the correct registers and the SETLFS 
routine is called. At this point all that remains is a call of the OPEN 
routine and we have a open file. This sequence produces exactly the 
same result as the BASIC statement OPEN 1,8.2, '■0:test,s.w" assum- 
ing the string variable passed from BASIC to program 2 contained 
"0:test,s,w". The file name/command string may be located any- 
where in memory. All that is necessary is to place the low/high values 
of the start address of the command sequence in the .x and ,y registers 
along with the length in the .A register (Accumulator) and call the 
SETNAM routine. 

Next in program 2 the CHROUT routine is directed to the device used 
by file *1 by loading the .x register with the file number and calling 
theCHKOUT routine. This means that any calls of CHROUT will send 
the byte in the accumulator to the disk. All values (0-255) are written 
with no filtering of exceptions. After reading all bytes from the screen 
andsendingthem,theaccumulatoris loaded with the file number and 
the CLOSE routine is called. This closes the file and notifies the disk 
drive that it is the end of the file. The CLALL routine is calied next; this 
resets all I/O to the default channels and clears the file table. 

Program 3 is the screen read routine and is very similar to program 2. 
The main difference is that the file opened is a read file (0:test.s,r) and 
the channels opened are input channels. It should be noted that a 
channel may be enabled for input using CHKIN without affecting the 
output channel when calling CHROUT. The same is true ior output- It 
is therefore possible to input from disk using GETIN and print to the 
screen using CHROUT. Conversely, input from the keyboard using 
GETIN and output to disk or printer using CHROUT is possible. An 
important difference in program 3 is the use of a temporary storage 
location for the index variable used in the .y register. This is necessary 
because all registers are clobbered by the GETIN (SFFE4) routine (see 
TABLE I). 

The file opened in programs 2 and 3 is exactly the same as a file 
opened by a BASIC program. Because of this, if a machine language 
program is to be used as a subroutine of a BASIC program, it is 
perfectly okay to open and close the file within the BASIC portion of 
the program. It is recommended that when fetching data from the disk 
the GETIN routine be used instead of the CHRIN routine. The reasons 
are the same as for using GET in BASIC instead of INPUT in that 
GETIN will accept any and all characters. The nice thing about 
machine language is that GETIN will work just as fast as the CHRIN 
routine when all the overhead of BASIC is absent. Program 3 does not 
test for a valid character after calling GETIN since the file length is 
always constant. 

PROGRAM 4 

Program 4 is the most complex. This program provides instant 
checking of the disk error channel when the Commodore and control 
keys are pressed together. The disk status is printed on the lop line of 
the screen and the cursor position is maintained. If it is desired to call 
this program from within another program, the last instruction can be 
changed to a RTS, the error check BCS EXIT changed to NOP's, and 
the program called at BEGIN. 
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Program 4 uses Jhe serial bus communication rouLnes in the 
KERNAL without opening a file. The serial device is commanded 
^'speak" wilh [he TALK (SFFB4) routine and the secondary address 
sent using rhe TKSA (SFF96) routine. The Commodore Programmers 
Ri'ference Guide incorrectly stales that to .^nd the secondary address 
one loads the accumulator with the secondary address value and calls 
the routine. The GUIDE does not mention that the secondary address 
value must first be OR'ed with the hex value $60. To access the disk 
command channel, secondary address $6F must be sent (SOF OR $60 
= S6F). This applies only lo the direct serial secondar>' address 
rounnes TKSA and SECOND. The SF.TLFS routine requires only the 
unmodihed correct secondary address value. 

When program 4 is run, the interrupt vector at $0314-$0315 is set to 
point at the main body ol program 4. Sixty times per second the 
system interrupt causes the code at START to execute. If a match 
between location $028D and SFE is found, the rest of the program will 
execute. If no match is found the normal interrupt routine is JMP'ed 
lo. When the program executes a new value is placed m the count- 
down timer SFE and the TALK (SFFB4) routine is called with a device 
number of eight. Following, the TKSA ($FF96) routine is called with 
secondary address S6F. This opens the command channel in The disk 
drive for talking (to the computer). 

Next The PLOT (tFFFO) routine is called with the carry bit set. This 
returns the row and column position of the cursor in the ,x and .y 
registers Thesearestored. The cursor is now set to the home position 
byacall to CHROUT with a value of $13 in the accumulator. Next the 
status byte (same as ST in BASIC) is set to zero. 

The ACPTR (SFFAS) routine is then called and The returned value 
printed on the screen by CHROUT. A call to READST ($PFB7) follows 
to determine if an EG! was sent. If not, the program Ific^ps to NEXT and 
repeals until READST returns a non-zero value. This indicates the 
disk has said all it is going to and isn't speakmg to us anymore. 

We then try to reset the cursor back where il came from and run into a 
problem in the PLOT routine. Unfortunately, the values returned 
when PLOT is called to obtain cursor position are not always the same 
as the values we must use lo restore cursor position. The problem 
comes up when the cursor is positioned on a wrap line. ie. one that is 
longer than 40 characters. The restore position part of the PLOT 
routine incorrectly handles the row calculations. We must test the 
column position returned by PLOT and if it is greater than $27 
(decimal 39) we must subtract $28 before calling PLOT 

Finally we call the UNTLK ($FFAB) routine to untalk the serial bus 
devices and then JMP to the normal interrupt handler. 

PROGRAM 5 

Program 5 is a BASIC program thai generates a machine language 
program file on disk. This file will contain all four example programs 
with the call addresses as listed in TABLE II. Just type it in and place a 
ready To use disk in the drive. Then RUN the program. The ML 
program can be loaded with LOAD " KERNAL WHO C 1 00 \8 J . 

Problems and tips 

A few problems have been noted when using the KERNAL routines to 
talk to the disk drive, if a UNTLK is followed immediately by a TALK 
command the computer may "crash". This appears to be caused by 
the drive not being able to respond lo another command until it has 
finished some internal work thus causing it to miss the attention 



sequence from the computer. This takes a few milliseconds and it is 
best to wait at least 100 milliseconds before sending a new command. 
This is one reason for the countdown timer logic in program 4 That 
logic is also implemented since program 4 is executed on the interrupt 
and these interrupts occur every 16.7 milliseconds. It is necessary to 
prevent the routine from being called by a second interrupt that 
occurs while the routine is still executing. In most inlerrupT driven 
routines this is not a problem but the serial bus communication 
routines have a nasty habit of clearing the interrupt flag thus allowing 
further interrupts. 

Something that is not specifically mentioned in the GUIDE is the fact 
that the KERNAL routrnes never call anv routines in the BASIC ROM 
residing at SAOOO-SBFFF. This means That the BASIC rom may be 
turned off and the KFRNALused as much as you like. This allows you 
to use the 8k of RAM there for your own programs. Keep m mind that 
the BASIC ROM makes frequent use of the KERNAL so the converse is 
not true. 

Another system characteristic that is not mentioned anywhere is that 
sprites MUST be turned off when the serial bus is used. It is not 
sufficient To hide them on the edge of the screen, they must be OFF! 
The VIC chip steals time from the 65 1 cpu when ,sprites are turned on 
and this will clobber the serial bus timing routines, particularly the 
EOf (end of information) detection. Your computer will occasionally 
miss the EOl signal and then wail until The sun burns out to get it. 
Using sprites does noT seem To affect the RS-232 routines since the 
Timing windows are much wider. 

When using the system RS-232 routines it is only necessary to OPEN 
a hie to device number two and output with CHROUT or input wilh 
GETfN after setting the correct I/O channels. Do not use CHRIN with 
RS-232 since CHRIN is dependent on receiving a carriat^e return to 
terminate the routine. Also, the RS-232 mTerrupt system uses The 
non-maskable interrupt (NMI) as docs The serial bus. Therefore, you 
cannoT ,send or receive RS-232 data and serial bus data at the same 
time. 

Another item of interest isthe way the CLOSE routine handles the RS- 
232 channel. If CLOSE is called then the RS-232 file is killed along 
with the buffers. The user port will he set lo default I/O values, if the 
RS-232 file is to be closed without affecting these things call the 
CLALL routine instead. This will wipeouT the file table and set default 
I/O but the user port is unaffected and The buffers remain allocated. 
One problem with RS-232 is that when a RS-232 file is OPENed, the 
user port is set to a standard default condition. This means that if you 
were using some of the pins for certain non-implemented functinns, 
such as telephone line control, your output conditions and port values 
may be disrupted. The only way to deal wilh this is to open the RS- 
232 file "manually". To do this you will have TO setup all the table and 
file flags, allocate buffers, set interrupt timers etc. yourself. A lulE 
description of this process is beyond the scope of this article but may 
be the subject of a future article. 

Full details of The enTry, exit and error condiTions to be considered are 
in the Commodore 64 Programmen, Reference Guide. I have listed the 
KERNAL routines in TABLE I in order by address bc^:ause the table in 
the GUIDE is in alphabetical order by label and that is very inconven- 
ient when you are looking through a disassembly and Trying To tmd 
OUT what routine is used. 

Using The KERNAL is not dilficuM, Many of the operations are not 
muchdifferentfromthe way BASIC works, h saves time and will make 
life a lot easier for the programmer. 
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TABLE 1 
Commodore 64 KERNAL Jump Table In Address Order 



Inbel 


Call 


Veclor 


Target 


Function 


1 


Register Usage 




addr 


addr 


addr 


Description 


entry 


return 


used 


lOINIT 


SFF84 


— 


SFDA3 


initialize i/o 


^ ^ — 


- X y 


a X y 


RAMTAS 


iFF87 


— 


$FD50 


ram tesi 


_ _ _^ 


X* ^ — 


a X y 


RESTOR 


$FF8A 


— 


$FD15 


restore vectors 


^ _ _ 


_ _ _ 


a X y 


VECTOR 


SFFSD 


— 


SFDIA 


move vectors 


- X y 


— .„ ^ 


a X y 


SF.TMSG 


$FF90 


— 


$FEI8 


control kernal msg 


a — 


_ _ _ 


a — 


SECOND 


$FF93* 


— 


SEDB9 


send listener second 


a — 


a — 


a — 


TKSA 


SFF96- 


— 


$EDC7 


send talker second 


a — 


a — 


a - - 


MEMTOP 


$FF99 


— 


SFE25 


set top ram pointer 


- X y 


- X y 


- X y 


MEMBOT 


$FF9C 


— 


$FE34 


set start ram point 


- X y 


- X y 


- X y 


SCNKEY 


$FF9F 


— 


$EA87 


scan keyboard 






a X y 


SETTMO 


$FFA2 


— 


$FE21 


set IEEE timeout 


a — 


^ _ _ 


a — 


ACPTR 


$FFA5* 


— 


tEEI3 


input serial byte 


_ _ _ 


a — 


a X - 


ClOUT 


$FFA8* 


— 


$EDDD 


output serial byle 


a — 


a — 


WX -X — 


UNTLK 


$FFA8* 


— 


SEDEF 


untalk serial bus 


_ _ _ 


a — 


a - - 


UNLSN 


SFFAE' 


— 


SEDFE 


unlislen serial bus 


_ _ _ 


a — 


a — 


LISTEN 


SFFBU 


— 


SEDOC 


isten serial device 


a - - 


a — 


a - - 


TALK 


SFFB4' 


— 


SED09 


serial device talk 


a — 


a — 


a — 


READST 


SFFB7 


- 


$FE07 


read i/o status byte 


_ _ _ 


a — 


a — 


SETLFS 


SFFBA 


-* 


SFEOO 


sel-up logical file 


a X y 


_ _ _ 


a X y 


SETNAM 


SFFBD 


" 


SFDF9 


set tile name 


a X y 


_ _ _ 


a X y 


OPEN 


SFFO) 


($031 A) 


SF34A 


open a logical file 


- — 


a — 


a X y 


CLOSE 


SFFC3 


($03 10) 


$F29I 


close a single file 


a - - 


a — 


a X y 


CHKIN 


SFFC6 


($03 IE) 


$F20E 


enable input channel 


- X - 


a — 


a X - 


CHKOLIT 


SFFC9 


($0320) 


$F250 


enable output chan 


- X - 


a — 


a X - 


CLRCHN 


$FFCC 


($0322) 


$F333 


set chans to default 


_ _ _ 


_ _ _ 


a X - 


CHRIN 


SFFCF 


($0324) 


SF157 


input characters 


^ — — 


a — 


a X - 


CHROUT 


$FFD2 


($0326) 


SFICA 


output a character 


a — 


a — 


a — 


LOAD 


SFFDS'-iSOSSOl 


$F49E 


load !o memory 


a X y 


a X y 


a X y 


SAVE 


$FFD8* 


•<$0332) 


SF5DD 


save from memory 


a X y 


a - - 


a X y 


SETliM 


$FFDB 


— 


$F6E4 


set iffy clock 


a X y 


— — — 


a X y 


RDTIM 


SFFDE 


-- 


$F6DD 


read jiffy clock 


_ _ _ 


a X y 


a X y 


STOP 


$FFFJ 


($0328) 


$F6ED 


test stop key 


_ _ _ 


a — 


a X - 


GETIN 


$FFE4 


(S032A) 


$F]3E 


get char from chan 


- -. - 


a — 


a X y 


CLALL 


$FFE7 


{S032C) 


$F32F 


clear/close files 


_ — 


_ ^ ^ 


a X - 


UDTIM 


SFFEA 


— 


$Fe9B 


update jiffy clock 


^ _ _ 


_ _ _ 


a X - 



Notes: 

Registers indicated as being used in 
the "used" column may contain Ihe 
same value loaded to call the routine. 
If no usage is indicated, then the regjs- 
ler is safe lo use for other purposes, eg. 
indexing, counting, storing, etc When 
GETIN is called lor RS-232 input, the 
x and .y registers are not affected. The 
processor status register and the accu- 
mulator carry bit are affected by 
neady all KERNAL routines. 

When sixleen-bit values are passed in 
or out ol a routine, the .x register 
contains the low byte and the y regis- 
ter contains the high-order byte. 

Detailed information on using specific 
routines may be found in the Commo- 
dore 64 Programmer's Reference 
Guide. 



* Serial I/O routine only, not com- 
patible with some IEEE-488 
adapters 

• ' These routines use an indirect 

jump Imk AFTER being entered 



Program I 

Keyboard input routine using GETIN and CHROUT with 255 charac- 
ter buffer and automatic BASIC variable access. Stores characters at 
$COO0-$CFFF. The first variable in the BASIC program should be a 
string (eg. a$= ' '), When the program is called this variable will 
contain the input. The length of input is controlled by the second 
variable declared by the BASIC program. This variable must be an 
integer (eg. a% = 10) and have a value of 0-255. 

LDA #S00 :a zero in a 

STA $FE ;index storage 

STA $CC ;tlag to flash cursorvariable offset 

LDY #$0A ivariable offset 

LDA ($2D),Y :get low byte of second var 

STA $FD isavert 

LOOP JSR $FFE4 ; XETIN " , go getacharacter 

CMP if$O0 lisilazero? 

BEO LOOP ;if zero then loop 

CMP #$0D ;(Silareturnkey'^ 

BEG END ;exil if return pressed 

CMP ^$14 ;is it a delete key? 

BNE MODEL ;not delete then skjp 



LDY 
BEQ 
DEC 
JMP 

MODEL TAX 
AND 
CMP 
BCC 
TXA 
LDY 
CPY 
BOS 
INC 
BNE 
DEC 
JMP 

PUT STA 

OUTPUT JSR 
LDA 
STA 
JMP 

END LDY 

LDA 



$FE 
LOOP 
$FE 
OUTPUT 

#$7F 
#S20 
LOOP 

$FE 

$FD 

LOOP 

$FE 

PUT 

$FE 

LOOP 

$COO0.Y 

$FFD2 

#$00 

$D4 

LOOP 

#$02 

$FE 



; buffer pointer 

;loop if buffer empty 

;delete by decrementing pointer 

jmp output 

;save ,a in the .x register 

;remove high bit from char 

;is it a control character? 

,i( less than #$20 yes so loop 

;re$tore character to ,a reg 

irelrieve buffer index 

;check if limii reached 

;carry set. limit reached 

increment buffer pointer 

;ifbuffernot full skip to "PUT^ 

;oops, buffer full so back down one 

,loop 

;piace byte m $cOOO buffer 

; - CHROUT " - print the character 

;zero 

; disable quote mode 

;play it again sam 

ioffset to siring variable length 

;buf1er pointer 
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STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

INC 

LDA 

JSR 

RTS 



($2D),Y 

#$00 
($2D),Y 

#$C0 

($2D),Y 

$CC 

#$20 

$FFD2 



.put in first variable length byte 

inc index y offset to pointer low byte 

low order byte buffer location 

store it in siring variabfe pointer 

fncrement index 

high order byte 

store it in string variable pointer 

turn off cursor 

a space to clear Ihe cursor bfock 

print it, 

and return 



PROGRAM 2 

Dump screen contents lo disk iisin^ name found in first variable 
declared in BASIC program calling this routine. The first variable 
should be a string variable or the name may be rather strange. 



.START 



LOOP 



EXIT 



LDV 


'$02 


LDA 


(S2D),Y 


BBQ 


EXIT 


PHA 




(NY 




LDA 


($2D),Y 


TAX 




INY 




LDA 


($2D),Y 


TAY 




PIJ\ 




JSR 


SFFBD 


LDA 


-$01 


LDX 


-$08 


LDY 


''S02 


JSR 


SFFBA 


JSR 


$FFC0 


BCS 


EXIT 


LDX 


"$01 


JSR 


$FFC9 


LDY 


"$00 


STY 


SFD 


LDA 


"$04 


STA 


$FE 


LDA 


($FD),Y 


JSR 


SFFD2 


INY 




BNE 


LOOP 


INC 


SEE 


LDA 


SEE 


CMr 


"$08 


BCC 


LOOP 


LDA 


'$(]! 


JSR 


$FFC3 


JSR 


SFFET 


RTS 





offset to siring length 

get string length 

zero length, quit while ahead 

save length on stack 

increment index 

get low address of string 

put in x 

increment index 

get high order pointer 

put in .y 

pull length from stack 

SETNAM: set file name 

logical lile "1 

device *8 

secondary address 

SETLFS; set logical file 

OPEN 

if carr\' set then error out 

lile number 

CHKOUT set output channel to file I 

zero index 

set pointer low byte 

start of screen high byte 

set pointer high byte 

get screen character 

CHRODT output a byte to disk 

increment index 

not 256 yet? 

increment high byte of pointer 

get pointer high byte 

done tour pages yet? 

if carry clear then no 

file number 1 

CLOSE: close the file 

CLALL: restore default i/o channels 

return to BASIC 



)TART LDY 


'S02 


;offsel to string length 


LDA 


(S2D),Y 


;geT string length 


BEQ 


EXIT 


;zero length, quit while ahead 


PHA 




;save length on stack 


INY 




;increment index 


LDA 


($2D),Y 


;ge[ ow address of string 


TAX 




;put in .X 


INY 




;incremenl index 


LDA 


(S2D),Y 


;get high order pointer 


TAY 




;pu( in -Y 


PLA 




:pull length Irom stack 


JSR 


$FFBD 


;SETNAM: set command string 


LDA 


"SOI 


;logica file "1 


LDX 


"£08 


; device *8 


LDY 


'$02 


; secondary address 


JSR 


$FFBA 


iSETLFS; set logical file 


JSR 


SFFCO 


;OPEN 


BCS 


EXIT 


;if carry set then error out 


LDX 


-$0I 


;file number 


JSR 


$PFCfi 


;CHKIN; set input channel to file 1 


LDY 


-$00 


;zero index 


STY 


$FC 


;zero index temp 


STY 


$FD 


;set pointer low byte 


LDA 


"£04 


;start of screen high byte 


STA 


$FE 


;seT pointer high byte 


LOOP JSR 


$FFE4 


;GETIN: get a byte from disk 


LDY 


$FC 


;gel index temp 


STA 


($FD),Y 


:slorebyteon screen 


INC 


$FC 


increment index 


BNE 


LOOP 


inot256yel? 


INC 


$FE 


;incremenT high byte of pointer 


LDA 


SFE 


;get pointer hii^h byte 


CMP 


"$08 


;done four pages yet? 


BCC 


LOOP 


;if carry clear then no 


LDA 


*$01 


;fi!e number 1 


JSR 


$FFC3 


;CLOSE: close the file 


EXIT JSR 


$FFE7 


;CLALL: restore default i/o 


RTS 




;return to BASIC 


PROGRAM 4 







PROGRAM 3 

Load screen contents from disk using name found in first variable 
declared in BASIC program calling this routine. The first variable 
should he a string variable. 



Fetches disk status and displays on lop line of screen when the control 
and Commodore keys are pressed together 



;inlerrupls off 

;high order byte of start 

;change high order vector 

;low byte of start 

;low byte of vector 

;interrupls on 

; match value 

;save it 

; ret urn 

;load keyboard shift pattern 

■fi= control + Commodore key 

;if pressed then do il 
;countdown limit 
; reached yet? 
;if yes then continue 
;counldown one more jiffy 
;finish interrupt 
;45iiffys (75 second) 
;countdown location 



IN IT SEl 




LDA 


"H,START 


STA 


$0315 


LDA 


"L,START 


STA 


$0314 


CU 




LDA 


"$06 


STA 


$FE 


RTS 




START LDA 


$028D 


CMP 


$FE 


BEQ 


BEGIN 


LDA 


"$06 


CMP 


$FE 


BF.y 


EXIT 


DEC 


SFE 


EXIT JMP 


$EA3I 


BEGIN LDA 


"$2D 


STA 


SFE 
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NEXT 



GOPLOT 



LDA 

JSR 

LDA 

JSR 

BCS 

SEC 

JSR 

STX 

SIT 

LDA 

JSR 

l,DA 

STA 

JSR 

JSR 

JSR 

CMP 

BEQ 

LDX 

LDA 

CMP 

BCC 

SBC 

JAY 

CLC 

JSR 

JSR 

JMP 



SFFB'I 

*$eF 

$FF96 
RXIT 

SFFFO 

SFB 

$FC 

m3 

$FFD2 

"SOO 

$90 

$FFAS 

$FFD2 

$FFB7 

"$00 

NEXT 

$FB 

$FC 

-$2S 

GOPLOT 

'$28 



SFFFO 
SFFAB 
EXIT 



;device number 

TALK: command disk lo talk 

.secondary address 15 

;TKSA send second 

:error abort 

;sel carry bit 

,PLOT: fetch cursor location 

;5ave it 

;save it too 

;home cursor character 

iCHROUT: print il 

;a zero 

iclear Ilie status word 

;ACPTR: get error channel characler 

iCHRGliT: print it 

jREADST: read status byte 

; if zero 

;get another character 

icursor x position 

xursory 

;shorl line? 

;if ye^ go plot 

;subtract 40 

;move toy register 

;clear carry 

;PLOT: set cursor back 

;L]NTLK: untalk serial devices 

ifinish 



PROGRAM 1-4 Generator 



TABLE II 
Call Address For Programs 1 , 2, 3 and 4 

PROGRAM HEX DECIMAL 

PROGRAM 1 SCIOO 49408 

PROGRAM 2 SCiSF 49053 

PROGRAM 3 $C1A6 49574 

PROGRAM 4 SC1F2 49650 

All four programs are stored as a block occupying the space from 
$c 1 00 to SC257. SCOOO to SCOFF is used as buller spdce by program 1 . 



Sample BASIC Programs 



To call proi^ram I 



10Glr.a$= ■ ";a%=10 
20 sys 49408 
30 print;print a$ 

To call proiiram 3 



To call program 2 

lOclr: a$= "0. screen dump.s.w 
20 sys 49053 



lOclr: a$^ "0 screen dump, s,r" 
20 sys 49574 



To call program 4 
sys 49650 



Program 5 is a BASIC proijraiii fliaf will ijeiierate a machine language 
proijiriJii on disk. This pfugram contains Ihe above four programs and 
will have the name ' keriial whf)rlOO'' Load this program with the 
commanrf: 

LOAD "kernel whoclOO", 8,1 

Then type NEW and press return. 



BO 
KG 
PI 
EA 
CC 
BL 
MH 
EP 
CI 

IL 
DC 
FG 
EK 
CB 
DF 
MM 
IH 
EE 
AF 
PC 
DL 
EL 
NK 
PH 
IE 
AH 
NM 
OF 
Dl 
Fl 
ED 
GN 
EF 
NF 
DD 
LN 
AK 
HC 
HB 
FF 
DH 
Ml 
MM 
LI 
FF 
JF 
AE 
PK 
PG 
MA 
DF 
WC 
JO 
MD 
DN 
JO 
KK 
CG 
FP 
OG 



1 00 rem object file creator for 

1 10 rem programs 1 , 2, 3 and 4 

1 20 rem for arttcie ' KERNAL WHO? " 

ISOrem "Evar^Williams 19S6 

140 print "flplace disk in drive and press return. 

150 get aS. if a$<>chr$(13)thenl50 

160 print "H^^' pl^sse wait" 

170 tor i = lto344. read a: ck = ck + a next 

180if ck<>50143 then print " BBI error in data 

statements V end 
190 pnnt "Udata ok, creating disk program tile" 
200 openi ,8.2, " 0:kernal who c100,p,w " 
210 restore: print#1 ,chr${0].chr$(193): 
220fori = 1to344 reada 
230print#l,chr$(a); 
240 next, closel 

250 print "0^=^^'^^'' ^^^ 
260: 

270 data 169, 0, 133,254. 133,204, 160. 10 
280data177, 45,133,253, 32,228,255,201 
290data 0,240.249,201, 13,240. 49,201 
300 data 20, 208, 9, 164. 254, 240. 237, 198 
310data254, 76, 62,193.170, 41,127,201 
320 data 32, 144,225, 138, 164,254, 196,253 
330 data 176, 218. 230, 254, 208, 5, 198, 254 
340data 76, 12,193,153, 0,192, 32,210 
350dala255, 169, 0,133=212, 76, 12,193 
360 data 160, 2, 165,254, 145, 45,200, 169 
370dala 0,145, 45,200,169,192,145, 45 
380 data 230, 204, 169, 32, 76,210,255,160 
390dala 2,177, 45,240, 61, 72,200,177 
400data 45,170,200,177, 45,168,104, 32 
410 data 189,255, 169, 1. 162, 8, 160, 2 
420dala 32,186,255 32.192,255,176, 34 
430datal62, 1, 32,201,255,160, 0,132 
440 data 253, 169, 4.133,254,177,253. 32 
450 data 21 0, 255, 200, 208, 248, 230, 254, 1 65 
460 data 254, 201, 8.144,240,169, 1. 32 
470 data 195, 255, 32.231,255, 96,160, 2 
480 data 177, 45,240. 66, 72,200,177, 45 
490 data 170, 200, 177, 45,168,104, 32,189 
500 data 255, 169, 1.162, 8,160. 2, 32 
510 data 186, 255, 32,192,255,176, 39.162 
520data 1. 32,198,255,160, 0,132,252 
530 data 132. 253, 169, 4, 133,254, 32,228 
540 data 255, 164, 252, 145,253,230,252, 208 
550 data 245, 230, 254, 165,254,201, 8, 144 
560data237, 169, 1, 32,195,255, 32,231 
570dafa255, 96,120,169.194.141, 21, 3 

580 data 169, 3,141, 20, 3, 88.169, 6 
590 data 133, 254, 96, 173, 141, 2, 197,254 
600 data 240, 11, 169, 6. 197,254,240, 2 
610 data 198, 254, 76, 49,234,169, 45,133 
620 data 254, 169, 8, 32 180,255,169.111 
630 data 32,150,255,176,237, 56, 32,240 
640 data 255, 134,251, 132,252, 169, 19, 32 
650 data 210, 255, 169, 0. 133, 144. 32, 165 
660dala255, 32,210,255. 32,183 255.201 
670 data 0, 240, 243, 166, 251 , 165, 252, 201 
680data 40,144, 3.233. 40, 24,168, 32 
690 data 240, 255, 32,171,255, 76, 18,194 
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Adding Functions to Basic 



Frank E. DiGioia 
Athens, Georgia 



Execute Machine Language programs inside your 1541 



How would you like lo be able lo add functions lo BASIC with as much 
ease as you are able to add commands through the use of wedge 
programs? Il can be done. And, in fact^ it is just as easy lo implement a 
function wedge as it is to implement any other type of wedge program. 
The natural question is, of course, if it is so easy, why haven't we seen 
(unction wedges before? 1 Ihink that the reason is simply because the 
types of wedges we are most familiar with are the ones which are least 
suitable for adding functions. 

If you try to think of a CHRGF-'.T wedge or an lERROR wedge returning 

a function value^ then, it does, indeed^ look like a tough job. because 
these types of wedges are not really suitable for returning values. We 
need a whole new type of wedge. In this article and the two that will 
follow il, we will explore several different types of wedges which are 
not in common use, but which have great potential for opening up 
new avenues of programming for those who desire to enhance the 
working environment of their computer. 

Why A Function Wedge? 

Perhaps you're wondering why we even need a function wedge. After 
all, Commodore was good enough lo include the USI^ function in 
BASIC 2.0 which allows us to add our own functions to BASIC. While 
it is very true thai we can add almost any function we desire via the 
USR function, the advantages of a function wedge include the fact that 
many new functions can be defined at one time as well as the fact that 
with a function wedge, we are free to determine the number of 
parameters, method of input, etc. For example, take the program line: 

10 print !cosh(.5),'sinh(.9),!seG(.12) 

While the purist may argue that the line could be implemented with 
USR functions, it would take several lines to implement and would not 
be nearly as clear as the above line. Further, what if you need multiple 
arguments like: 

20z = !mod(x,y) 

You could say Z= USR(X],Y I suppose, but it just isn't the same. 

Create A New Environment 

While the above are good enough reasons for using a function wedge, 
an even more novel way to use added functions is to change the 
BASIC programming environment. That is, give the illusion of adding 
new commands, and changing the capabilities of BASIC. For example, 
a function named @ that takes two parameters and returns a null 
string can be used to plot the cursor, thus creating a PRINT@[x,y> 
statement. And who says we need to enclose the function argument in 



parentheses? Suppose we make a function named '$" which converts 
from ASCII Hex characters to internal floating point. Then we can 
execute statements like: 

10poke$cOOO,$b4 

20 X = SaOOO 

30 print $dOOO,peek($dOOO) 

or add a function named % for binary and you can 

20 poke $033c,peek($033c)and%1 1 1 1 

Admittedly, the above could be done with a USR function but by using 
a function named S^ or '%' we create the illusion of a new operating 
svstem. 

How To Tmptement The Wedge 

Now that you are fully convinced that a function wedge is a worth- 
while endeavor, let us examine how lo implement one. it isn't hard at 
all. The vector we will be changing to point to our evaluation routine 
is named lEVAL and is located at $03CA/I030B. In addition to just 
executing our routine, however, we must tell BASIC whether the 
result was string or numeric and where to find it. As far as the type 
goes, storing a zero at location SOD indicates numeric and tells BASIC 
to look lor the result in the FAC (The floating point accumulator ~ if 
you don't know where or what that is, don't worry, there are ROM 
routines that lake care of all of that for you.) Storing a IFF at location 
SOD indicates that the result is of type string and BASIC looks on the 
temporary string stack to find il. If you don^t understand how to set up 
a string, don't worry, wc will use a ROM routine to do this for us, too. 
Our evaluation routine will default lo type numeric and the ROM 
routines we will use to set up a string will set the type to siring so we 
never have to worry about setting the type flag ourselves. In fact, the 
only thing out of the ordinary that we will have to do, is to set up the 
string descriptor if the result of our function is a siring. You will sec 
how this IS done in the example program. 

An Example Function Wedge 

At the end of this article is a very useful example of a function wedge 
that you can use and add your own functions to. It is activated by 
SYS49152 and is immune lo RUN/STOP-RESTORF, Here arc the 
functions we will include and an example of how they are used: 

The '@' function: Plot the cursor and return a null string, (Note: more 
than one @ is allowed in one print statement). Type. STRING 

Ex. print@(0, 1 4) ' my report " ; @(2, 1 2] " by John smith " 
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The •$' and '%' functions: Convert HEX and BINARY characters to 
floating point. Type; NUMERIC 



Ex. 



poke$d016.peek($d016)and%11101111 



The '*' function: Convert from LO/HI formal to 16 bit floating point, 
{This routine is included just as an example to show how to convert 
your results to floating point if they aren't already). Type: NUMERIC 



Ex. 



print #(peek(43),peek(44)) 



our function in line 2500 by telling BASIC where the string can be 
found. {Note that XPLOT (The @ function) returns a null siring by 
reserving space for a string of length zero before setting up the string 
descriptor.) 

Writing numeric functions is easy. Just be sure to leave the final result 
in the FAC, If you were doing an integer calculation, you can convert 
the result lo floating point in exactly the same way as the " function 
does iL See lines 2980-3020. 



could be used to read the start address of BASIC, To read any address, 
jusl PRINT "(LO.Hl). 

Finally, since all the above functions so far have been kind of off the 
wall, 1 will includeaparser and some examples of functions similar to 
what you might add yourself; including a straightforward string 
function, IDSTAT, and a somewhat serious numeric function, !MOD, 
which shows that even YOU can do floating point operations from 
machine language. 

The IDSTAT function returns the disk status as a string. The status is 
cleared once it is read so save it in a variable if you need it, 

Ex. (Print A Sequential File) 

10 open2,8,2, " filename " : aS = Idstat; if val(a$)<>0 then 

prir^t a$: end 
20fori = 0tor get#2,b$ printbS: i = st: next: close2 

The [MOD(X,Y) function returns the integer remainder from dividing 
X by Y. MOD has two sister functions, DIV and FRAC, which return 
the integer quotient and fractional remainder, respectively, 

Ex. fii = !div(x.256) 

lo = !mod(x,256) 

Z2 = !frac(x,y) 

Any functions that YOU may want to add can be included via the ! 
symbol which immediately causes parsing for the function name to 
execute. 

Although the source code for this example is fully commented, I will 
briefly discuss some imporlanl points for those interested in adding 
their own functions with this code. 



How It Works 



Final Notes 

The funcllon wedge is the best way possible to add functions to BASIC. 
It is immune to RUN/STOP-RBSTORE, it is compatible with almost 
every other uliiily that I know of including the DOS wedge and Epyx 
Fastload Cartridge [no, the $ commands do not conflict) and it 
provides a natural way to pass the results back to BASIC. Any of these 
new functions can be used inany way that an old one can be used. I.E. 
the following statement is perfectly legal 

a = $ffOd*%1101i+sin(lmod($tfabcd,%1i10i)) 

There are a few very minor limitations to the functions presented 
here, (fyouarellkeme, the first test you will try with the $ function is 
PRINT SABCDEF. This will result in a syntax error because the BASIC 
keyword DEF is embedded in the number. Adding a space before the 
F will solve the problem (The $ routine ignores spaces). The only 
other limitation is that the MOD/DIV/FRAC group is intended lo be 
used with positive operands only. Don't forget when using rhf @ 
function indirect mode that the screen will scroll if you print too close 
lo the bottom. This problem can be easily fixed with a WAIT state- 
ment. Try this line: 

print@(0, 1 4) " my report ' @(2 J 3) " by John 
doe "®(24J4)' page 1 ",.waitl98J 

I hope that you will be able to use the funclions presented here and 
that this example will provideyou with the skills necessary to add any 
additional functions Ihal you may need. The nexi ciriide, "Command 
Wedge", will focus on a wedge for modifying existing BASIC com- 
mands. Before going there, try these relatively simple projects: 

(1) Add two functions !HI(X) and !LO(X) which return the hi and lo 
bytes, respectively, of the number X, 

(2) add a function, ISIZE, which returns the length of the BASIC 
program currently in memory. 

(3) If you have two drives, make IDSTAT require a device number like 
!DSTAT8or!DSTAT9. 



The wedge itself is very simple. If not for the ! commands, the wedge 
would only be a few lines long. When a function name starting with ! 
is found, control is passed to the parser which looks through the 
command table for a match and jumps to the corresponding address 
via RTS, That is, it places the address of the routine {minus one) on the 
slack and then executes an RTS (ai the end of CHRGET) to jump to the 
routine. The parser code is well worth studying. If you want lo add 
your own funtions lo BASIC, simply put the name of your function in 
the TABLE being sure to add $80 to the last byte of the name. Then put 
the address-l in the ADRTAB and you are in business. 

The IDSTAT function is straighlforward and may be used as a model 
for addingyour own siring funclions. It talks to the drive and then puts 
the length of the resulting string in -A and in line 2420 asks BASIC 
where to put the string DL00P2 copies the string there and we end 



HINTS: (Don't read unless you are stuck) 

(1) Try something like this: Look at the defiriition of LO and HI in 
terms of !MOD and [DIV above. Use JSf^ SAEFl to get parm into 
FAC, (This routine takes care of parentheses, etc.) Store FAC at 
TEMP, {See lines 4190-4210). Gel 256 into FAC (See lines 2980- 
3020) Store at MODLUS (See lines 4260-4280) Set Mag for MOD or 
DIV as required and JMP to tine 4300. 

(2) Easy, Subtract address of start of BASIC (found at locations 43/44) 
from address of start of variables (found at 45/46). Convert this 
result to FAC, 

(3) Simply replace line 2220 wilh JSR GETBYT. Then add some checks 
so that no one can hang it up by giving it a crazy device number. 

Have fun? 



TTMTraMOCtor 



» 



JUV 19*6: \folume7. tosue 01 



NO 
FK 
NL 
GP 
JC 
HG 
DJ 
OB 
FO 
IN 
AH 
HL 
HO 
ND 
DC 
EN 
ND 
DP 
NB 
NJ 
PA 
It 

FB 

HN 

DD 

HB 

ND 

MO 

GP 

U 

Gl 

LK 

HL 

LP 

IJ 

AG 

JC 

OG 

JB 

JG 

IC 

JL 

ML 

LF 

CE 

PD 

PG 

FC 

FF 

CM 

EJ 

AG 

Bl 

FB 

DA 

BA 

JL 

JL 

MJ 

NN 

BG 

DA 

\C 

BN 

AH 

MA 

JJ 

LE 

FG 



1 00 rem basic loader for function wedge 

1 10 rem by franke. digioia 11/14/85 

120 rem sys49152 lo activate 

130: 

I40foradr = 49152to49634;readml 

1 50 cs = OS + mhpoke adr.ml.next 

1 60 ifcs<>59800thenprint ■" error in data " 

170: 



Functkin Wedges Source Code 



180 data 169, 
1 90 data 1 1 , 
200 data 115, 
210data240, 
220 data 240, 
230 data 0. 



11, 141, 

3, 96, 

0,201, 

21, 201, 

19, 201. 



10, 3, 169, 192, 141 
169, 0, 133, 13, 32 

36,240, 22,201. 37 
20,201, 35 
18, 32, 121 
29, 193, 76 
76, 13, 193 



64, 240, 
33, 240, 



76,141,174, 76, 
240 data 32,193, 76,213,192, 
250 data 169, 0, 141, 132, 192, 170, 168,200 
260 data 189, 136, 192,240, 64,232,209, 122 
270 data 208, 2,240,243,202, 189, 136, 192 
280data 16, 8, 41,127,209,122,240, 19 
290 data 208, 8,232,189,136,192,240, 37 
300 data 16,248,232,238,132,192,160, 
3l0data 76, 63,192,200,152, 24,101,122 
320 data 133, 122, 144, 2,230, 123, 173, 132 
330 data 192, 10, 170, 189, 153, 192, 72, 189 
340 data 152, 192, 72, 96, 0. 76, 8,175 
350data 77, 79,196, 70, 82, 65,195, 68 
360data 73,214, 68, 83, 84, 65,212, 
370 data 142, 193, 145, 193. 139, 193, 159, 192 
380 data 162, 8,134,186,138, 32,180,255 
390 data 169, 111, 133, 185, 32, 150,255, 162 
400data 0. 32,165,255,157, 60, 3,232 
410 data 201, 13,208,245, 32, 171,255.202 
420dala138, 141, 12,193, 32,125,180.172 
430 data 12,193,185, 60, 3,145, 98,136 
440 data 16,248, 76,202,180, 32,115, 
450 data 32,242,192,224, 25,144, 3, 76 
460 data 72,178,192, 40,176,249, 24, 32 
470 data 240, 255, 169, 0, 32,125,180, 76 
480 data 202, 180, 32,250,174, 32,158,183 
490 data 142, 12,193, 32,253.174, 32,158 
500 data 183, 138, 72, 32,247,174.104,168 
510data174, 12.193, 96, 0, 32,115, 
520 data 32,242,192,134, 99,132, 98,162 
530 data 144, 56, 76, 73, 188, 169, 
540data169, 1,141,139,193, 32, 
550 data 32,115, 0,240, 14, 32, 
560 data 32,114,193, 32,126,189. 
570 data 193, 104, 104, 76.121, 0,169, 
580datal62, 5.149, 97,202, 16,251, 96 
590 data 144, 16, 174, 139, 193, 208, 24, 201 
eOOdata 65,144,230,201, 71,176, 16, 56 
610 data 233, 7, 174, 139, 193,240, 4,201 
620data 50,176, 12, 56,233, 48, 96,201 
630data 65,144,206,201, 91.176,202, 76 
640 data 72,178,166, 97,240. 15, 72,174 
650 data 139, 193, 189, 137. 193, 24,101, 97 
660 data 176, 4.133, 97,104, 96, 76,126 
670data1S5, 4, 1, 0,169, 0, 44,169 
680 data 1, 44, 169, 255, 141, 139, 193, 32 
690 data 250. 174, 32, 138, 173, 162,230, 160 
700 data 193, 32,212,187, 32,253,174, 32 
710 data 138, 173, 32,247, 174, 162,225, 160 
720 data 193, 32, 212, 187, 169, 230, 160, 193 
730data 32, 15,187, 32. 12,188, 32,204 
740 data 188, 173, 139, 193, 240, 23, 165, 97 
750data 32, 83,184,173,139,193, 46, 13 
760 data 169, 225, 160, 193, 32, 40, 186, 32 
770data 73,184, 32,204,188, 32, 27,188 
780 data 96, 0, 



0, 44 
62, 193 
72, 193 
76, 40 



OF 1000 



BH 
JK 
OM 
Gl 
HM 
KJ 
OJ 
JG 
lA 
JN 
MM 
GP 
PD 
MD 
PE 
JC 
OH 
CB 
NM 
ND 
BD 
KD 
DD 
DC 
EJ 
DD 

IL 
PC 
CN 
GE 
MO 
AK 
GM 
BN 

ID 
MM 
AN 



lOlO function wedge 
1020 bytranke digioia 

1030 ^^'^2•'B5 

040. 
1050- 
1060 

070 chrget 
lOeOdugof 
lOSOieval 



= EcOOO 



MOOlvpe 

mo, 

1 1 20 init 

1130 
MO 

1150 

H60 

170 
1180 

n90t\vedge 
I2O0 
3210 
1230, 
1230 



$0073 
$0079 
$030a 
SOd 



i ■ 



c driven lent starl 

,gpf hylBOUeif 
.gel sarriG byie 
,evaluaiion vecloi 
;fype Hag 

; initialize routine 



Ida 

Ida 
sla 

rfs 



Ida 
sia 

JSI 

cmp 

beq 

onp 

beq 

cinp 

beq 

cmp 

beq 

cmp 

beq 



teval 

/)>fwedge 
le^U 1 



nol one of ours 



jsr 
imp 



imp 
imp 
imp 
imp 



12J0 

1250 

1260 

f270 
280 

1290 

1300 

1310 

1320 

1330 

1310 

1350 

1360 

1370. 
ID 1380 jump 
DA 1390 
BP 1400 
JK 1410 
CG 14^0 
MA 1430, 
HP 1440 parser 
Ml 1450 
BH 1460 
Jl 1470 
HJ 14B0 
IE 1490; 
AG 1500pIdo[j 
NJ 1510 
hH 1520 
FJ 1530 
MA 1540 
OG 1550 
IN 1560 
IJ 1570, 
Er^ 1 580 next 
PW 1590 
Ef 1600 
CC 1610 
ID 1620 
CA 1630 
JH 1640 
\0 1650, 
BO 1660 find 
HL 1670 

HB leao 

IL L690 
KB 1700, 
ED 1710*1 
FJ 1720 
FC 1730 
BK 1740 
ME 1750, 
BJ 1 760 found = 



ffSOO 
type 

chrgel 

fl'S' 
|ump 
tt'W 
|iim|) + 3 

jump + 6 
Htl 

jump + 9 
#■!■ 
parser 



chfgof 
£ae8d 



hex 
bin 

^f^Ol 

e-pand 



GB 1770 



JJ 



1780 



EH 1790 



HL 
NA 
BB 
GA 
GK 
PF 
HA 
LN 
GA 
EP 



sta 

lay 

iriy 

Ida 

beq 

inx 

onp 

bne 

beq 

den 
Ida 

bpl 

antJ 

cmp 

beq 

bne 

Inx 
Ida 
beq 
bpl 

in>; 
inc 
Idy 

imp 



WSOO 
count 



table, X 
error 

(S7a).y 

ploop 



table. X 

find 

flS7l 

[S7a).y 

lourd 



tattle. X 

error 

find 



couni 

flSOO 
ploop 



1800 
1810 
1820 
1830 
1340 
1850 
IS60 
870 

iBeo 

1890 



my 
lya 
cte 
ado 

bcc 

iric 

Ida 

asl 
tax 
Ida 
pt>a 



S7a 
$7a 
■ •4 

S7b 

couni 
a 

adrlab 



:thisistiie VifeiJge 
flag lot numeric 
,sei type flag 

, see wiiat we've goi 
,hex conver&onpnnl 

; bl nat y conversionpnnl 

.plol funclionprini 
,lhe tt command pnni 
,use the parser pi ml 



.^ei flags again 
, use original routine 

.jump table for fns 



.clear all regs 
and counler 



\tr\cr te^t index 
.got table Dyle 
,end ol tablo 
.inci tatHe pointer 
.cmpare *Hh text 
.find nexl word 
match/keep looking 

.bump > down once 

.end ol table viiordpnnl 

.no/find end ol word 

yes/mask 'lag 

.IS il a malchpnni 

.hooray1'^ 

.go back for more 

.find end ol word 
look lor negative 
.end of lable 
.keep looking 

;poinl to nexl word 
,word # in table 

reset texl index 
search some more 

.execulion routine 
.point lo ne>;t byte 
;updateie'[ pointer 



,gel Olfset m lable 
, multiply by two 

.use as index 
l.tii byieadr 
.as relurn adr hi 



1^ TTw Trqniqctor 



56 



Jiiy 19B6? VohHne 7, Ittue Ol 



'ab 


1900 


Ida 


adrlab.x 


Jo byte adr 


FF 


>e20 


bca 


:puihn a 


EH 


3740 Ida incr.x ;get<nctina 


OB 


1910 


pha 




;as reijrn adr lo 


EA 


>S30 


pha 


. keep It safe 


MB 


3750 cIc 


ND 


1920 


rts 




.execute routine 


EP 


^840 


isr chkrhi 


.check closing paren 


AG 


J760 adc exp add exp to incr. 


AA 


1930. 








CF 


>S50 


pla 


.retrieve 2nd patm 


CL 


3770 bcs errl .overflow error 


DN 


I940couni 


b>ieSOO 




IP 


!860 


tay 


;put in y 


MO 


3780 sia exp .update exponeni 


MM 


1950 error 


imp 


EatOS 


.syntax error 


PC 


?870 


Idx fen 


retrieve 1st parm 


OJ 


3790 pla .retrieve byte 10 a 


OB 


I960, 








MC 


^880 


rls 




OMt38O0exi[ rts 1 


JJ 


1970 idaia labJes - 


- add vou' own 


CF 


?e90 fen 


byte $00 




IF 


peio. 


CD 


1980 ."oufine names and addresses 


KM 


?900, 






CPb820efil imp dlo* 


AM 


1990 .here besuretoaddSSO fo 


EN 


?910: 






JE 1830 mcr byte $04. $01 


CF 


!000 .lasl character ol riame 


and 


NG 


^920 .the #(io.hi} command - 


- cohverl 


LHp840flag byte $00 


JD 


^010 .subtract 1 irom [headdress 


EN 


?930 lo/hi to 16 bit number. 




Al 


P850, 


KF 


1020. 








CP 


?940; 






Kl 


3860. 


ce 


IQ30 lable 


byle'mD'Ec4.'1ra\Sc3 


Bl 


*950 expand = 




CO 


3870 div/modf rac — these routines respectively 


JC 


!040 


byle ■di'.Sd6.'dsia'.Sd4.SO0 


KD 


•960 


jsr chrget 


gel next byte of lexi 


Bl 


3880 , return the integer-quotient. 


IH 


!050. 








OG 


>970 


jsr getprm 


,gel parms into xyy 


JL 


i890 .integer-remainder, or fraciionai 


LK 


!060 adrfab 


word mod- 1 trac-l.div-l,dsfal-1 


JO 


>9ao 


six S63 


lo byle in $63 


LE 


3900 :parl olthe quotient a/b 


Ml 


!070. 








BO 


>990 


Sty S62 


.hi byte m $62 


ML 


3910, 


GJ 


:oeo 








LD 


iOOO 


Wx #$90 


,sel exponent to 15 


GL 


3920exp :- $61 .adr of exp oflac 


EG 


?090 Junction cabulalion routines 


PE 


10TO 


sec 


,don'i invert mantissa 


LN 


3930 facara = SbcOc copy fac to arq 


KK 


?T00. 








JK 


iO20 


imp Sbc49 


,conver] to lac 


EN p940 facmem » $bbd4 ,siore fac at adr n (xyy) 


LC 


?n0.dstal function 




ME 


^030. 






LA +950mdiv = SbbOl ^dividefacbymem 


OL 


?120, 








GF 


i040 








Ci 1960 subirt = Sb85a .subtract facirom arg 


MP 


?130aopfr 


= 


EffaS 


.gel byte frotn serial port 


00 


S050 


hex/binary conversion routine — 


Ml 1970mmult = tba28 .mult fac by mem la/y) 


BL 


?140la 


- 


Sba 


; device number 


BP 


iO60 


this routine converts ascn 


CM 1980 facini = Ibccc .convert fac lo inieger 


BK 


?l50sa 


= 


Ib9 


.secondary address 


AE 


S070 


hex or binary numbers lo lloaling 


MA j990round = Ibclb .roundthelac 


MD 


>160v/buf 


= 


S033C 


.buffer lor string 


LL 


soeo 


pomi 






FC hoOO addS = Sb849 add 5 lo fac 


DE 


n 70 talk 


^ 


$ffb4 


.tell device to taJk 


It 


i090 








MM 


kOlOlrmnum = SadSa .get numeric parm mio lac 


KC 


MSOtksa 


= 


S!f96 


.send 2rid adr for lalk 


EJ 


STOOaddbyt 


= Sbd7e 


.add a to lac 


KC [1020 . 


LK 


M90un(alli 


- 


Srtab 


,lree serial bus 


GA 


niO^egal 


= £b248 


.(Jlegal quantity 


ED bO30 , 


OA 


!200; 








MJ 


11 20 of low 


= Eb97e 


.overflow error 


ON 3040 div = - .entry for div 


CC 


!210dsral 


= 


* 




AO 


il30exp 


= S61 


,exponent of fac 


DD 1050 Ida #$00 , flag for div 


KM 


'220 


Idx 


#$08 


.device number (disk) 


KL 


i^AO. 






NB i060 byteS2c ;skip nexl m sir 


AE 


1230 


SIX 


fa 


.Utsr address 


NC 


n 50 hex 


Ida #SO0 


Jlag for hex 


EL 1070 mod = - ;enlryformod 


EH 


!240 


fxa 






HM 


1160 


byte$2c 


,skip nexl instr 


GH 1080 Ida #101 JIaglormod 


GD 


!250 


|sr 


talk 


,ieN dnve to speak 


EO 


1170 bin 


Ida #EOi 


Jlaglor binary 


LD 1090 byleI2c .skip next mstr 


OH 


!260 


Ida 


#E6f 


ichannef 15forS60) 


DAj 


nso 


sia flag 


.saueflag 


CI (llOOfrac = . ;entry for frac 


HK 


?270 


sia 


sa 


; secondary address 


IJ 


n90 


jsr zero 


sei fac 10 zero 


EK 


HllO Ida #$ft .flaqlorfrac 


NJ 


^280 


|sr 


iksa 


.send ii to drive 


GP 


1200. 






JO 1120 sia flaq .set'theflao 1 


BH 


?290 


Id* 


#soo 




EE 


5210 loop 


fsr chrget 


.get next char 


IJ 


n30. 


CH 


^300 








FE 


1220 


beq cdone 


.end of siatement 


ND M40 igellirstparm in!acarid2nd 


KH 


?3iOdloop 


± 


- 


,read command cftannef 


'NF 


S230 


iSr convrt 


.convenfromascii 


BD 1150 parm in arg 


IG 


>320 


jSf 


acptt 


;gel byle from drfve 


AO 


3240 


)sr incexp 


incT facexpor)enl 


GL 1160. 


EH 


>330 


sta 


*bu',x 


.siorechafacter 


IMI 

1 


3250 


isr addby: 


.add the byle to lac 


KH 1170 |Sr chkHt .open paren prini 


AA 


^340 


inx 






01 


3260 


jmp loop 




8G 1180 |SJ Irmnum ;oet fjrst value 


BK p350 


cmp 


#SOd 


.carriage return print 


MD 


3270. 






PD 


4190 Idx #<iemp lo byle of address 


PA 


?360 


brie 


dioop 




EG 


3280 QuiT 


pia 


;pul return adr 


DD 


4200 Idy #>lemp hi byte of address 


EM 


^370 


|sr 


jnialk 


:free seriaf port 


CG 


3290 


pla 




JG 


4210 jsr facmem ,placeintemp 


CM 


?380. 








PK 


3300 cdone 


jmp cfifgot 


;sei Hags & rls 


EC 


4220 isr chkcom commaprinl 


IC 


?390 


dSK 




jforget the <ci> 


EG 


3310. 






OC 1230 |Si frmnum .get 2nd parm 


OB 


?400 


txa 




:pji length in a 


AD 


3320 .hex/bin subroutines 




NK 1240 |sr chkrhl .closing parenprini 


NH 


MIO 


sia 


len 


;$ave it 


IH 


3330. 






AB 1250. 


FC 


?420 


P' 


Sb47d 


.reserve space for siring 


MF 


3340 zero 


= ■ 


;set fac to zero 


DO 1260 Idx *<modlus.getadFolmodlus 




P430 


Idy 


len 


;uselengffi tot index 


LN 


3350 


Ida #£00 


.here's the zero 


EF 1270 Idy #>modlus.in x/y 


OP 


2440 








DP 


3360 


Idx #E05 


.5 bytes + sign 


JB 1280 |$r facmem .store lac at modi us 


GM 


2450 dlD0p2 


= 


■ 


,copv sinng lor basic 


AK 


3370. 






ID 1290. 


LB 


?460 


Ida 


wbul.y 


.gel byte of string 


EP 


3380 Jilch 


sia exp. X 


.zero out byf e 


AE t300 Ida *<lemp .adr of lslparm(lo} 


HE 


2470 


sia 


(S62}.y 


.pul in slnng mem 


DL 


3390 


dex 


.bump index down 


GJ 1310 Idy ''>temp .adr of Istparm(hi) 


CP 


2480 


dey 




;bump pointer down 


DC 


3400 


bpl Zilch 


.coupler roll overprint 


DH 1320 |sr mdiv fac = temp/lac 


HB 


2490 


bpi 


dioop2 




OD 


3410 


rls 




OL 1330 |sr lacarg aig = fac 


BP 


2500 


jmp 


Eb4ca 


.put dscrptr on stack 


CN 


3420. 






CL 1340 |sr lacint .fac - int(lac) 


EE 


25^0 








DP 


3430 convrl 


- 


;ascii digit to true value 


EH 1350. 


OE 


2520 








CG 


3440 


bcc digit 


chrgeiriag/digiiprini 


LE 1360 .check flag if div function 


GB 


2530 <Sii(row.col)tunc[ion - ptol 


AJ 


3450 


Idx flag 


.hex or binaryprmt 


PI 


■1370 .then done, else continue 


Ml 


2540 cursor and relurrr null string 


EO 


3460 


bne chkerr 


.binary non- dig It 


CJ 


4380, 


MG 


2550 








GM 


3470 


cmp #'a' 


.check lower limit 


LE 


4390 Ida flag 


IC 


2560chkHt 


E 


Saeia 


.check left paren 


HN 


3480 


bcc quil 


.less than 'a' 


MP 


■1400 beq done 


KH 


2570 ch krht 


= 


Saef7 


■check rrgM paren 


EA 


3490 


cmp #'g' 


.check upper limit 


AL 


1410; 


LI 


25e0chkcorTi = 


Saefd 


check on comma 


MF 


3500 


bcs chkerr 


.bigger ihan 'f 


JJ 


4420 Ida exp .musthaveexom a 


GE 


2590 geibyt 


■=- 


3P79e 


,get tjyte into x 


HD 


3510 


sec 




KJ 


■1430 )Sr subtrt Jac - arg - lac 


HO 


2600 plot 


= 


5ttf0 


■pioLfeCGh cursor 


AL 


3520 


sbc *S07 


.account tor exira 7 


OM 


4440. 


IK 


2610 








lA 


3530 digit 


Idx flag 


;hex or bmarypnni 


BA 


1450 .check flag if frac function 


JM 


2620 xplof 


= 


' 




tG 


3540 


beq okay 


.hex/any digit is line 


JO 


■1460 .ihen done, else conlinue 


DF 


^630 


jsr 


chrgef 


.gel nexi byle 


FE 


3550 


cmp tt'2' 


.bin/check upper limil 


MO 


1470. 


MH 


2640 


jsr 


gelprm 


.get row/col mx/y 


NG 


3560 


bcs eri2 


bigger than 1 


FK 


1480 Ida flag 


LJ 


3650 


cpx 


#$19 


;row less than 25prin| 


PE 


3570 okay 


sec 




OE 


1490 bmi done 


PO 


2660 


bcc 


chky 


.yes/cbeck column 


CM 


3580 


sbc #130 


,conuert lo true value 


KA 


1500; 


OB 


2670 bad 


jmp 


ilegal 


.no/illegal q jant 


CP 


3590 


Els 




BB 


1510 Ida #<modlus oetaddressoMhe 


^JE 


26S0 chky 


cpy 


*S28 


.cd less than 40pnnt 


Gl 


3600. 






AN 1520 Idy #>modl us .modulus m a/ y 
PJ '530 isr mmult lac = fac ■ modlus 


CE 


2690 


bO£ 


bad 


.no/trash it 


GK 


36l0chkerr 


= - 


.check illegal quanl 


AH 


2700 


cic 




:|Uslfoi looks 


NH 


3620 


cmp #S4l 


.compare wilh a 


GJ 


r 

1540 jsr adds .add 5 tor roundoU 


CF 


2710 


j5r 


plot 


.pioi tfie cursor 


NG 


3630 


bcc qui! 


.less than 'a' 


BO 


1550 isf tacini itrijncaie aaj^baae 


AO n2U 


Ida 


#$00 


;set len to zero 


MA 


3640 


cmp #$5b 


; compare with '(' 


GE 


1560; 


KD 


2730 


IS' 


Sb47d 


.reserve space 


OA 


i650 


bcs qui! 


greater than 'z' 


MP 


1570 done |sr round , round the fac 


ND 
ED 


^^740 
?750, 


imp 


Eb4ca 


.putdescrptr on stack 


NG 

MM 


3660 eir2 

i670. 


imp ilegai 


.illegal quantity 


AN 
EG 


1580 ris 
1590. 


MC 


?760ge1prm 


= 


* 


.gel {a. b} into x/ y 


GN 


3680. 






KA 


I600modlus • - - + 5 


IC 


^770 


|St 


chkltl 


check open paren 


IN 


3690 incexp 


■^^ * 


.incremeni exponent 


PC 


I610iemp . = . t5 


€K 


?7S0 


|sr 


getbyt 


.get first parm 


HJ 


J 700 


Idx exp 


,gef exponeni 


CI 


1620. 


BE 


?790 


Six 


len 


;save il here 


CP 


3710 


beq exit 


;fac = 0. don't mcr. 


CP 


1630 end 


JP 


?800 


JS' 


chkcom 


,check on comma 


CD 


3720 


pha 


;save byle in a 




COE810 


IS' 


geibyl 


,get second byle 


EK 


J 730 


Idx flag 


use Hag for offset 
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Command Wedge 



Modifying BAS/Cs Commands 



Everyone has their own ideas on how the BASIC interpreter should 
carry out certain commands. We^ue of/ caught ourselves thinking, HI 
had written this interpreter. I would have done thus and so. . . ". The 
fact of the matter is that whoever DID write the BASIC interpreter didn't 

write it just lor you and me They designed the interpreter anticipating 
what the needs of the AVERAGE user would f}e. Unfortunately, it was 
written some years back, when they expected the average user to own 
a tape drive and not be a particularly sophisticated programmer 
Weil, times have changed, and thus it seems only fitting that in this 
issue, which is dedicated to the R0/i4 routines, we should discuss how 
to modify the existing BASIC commands in order to create a version of 
BASIC which is perfectly customized to OUR needs today. 

In the previous article we explored a new wedge which allowed us to 
easily add functions to BASIC. The vector that we used for that wedge 
is named lEVAL and is located at S030A/$030B. In this issue, we will 
be using lEVAL's twin sister. IGONE located at S030S/S0309. These 
two vectors are almost identical in purpose, the only difference 
between them being that lEVAL is used for evaluation of functions, 
and IGONE is used to execute commands. Therefore, before we go 
any further, please note that ait of the material h-om last issue 's article 
on adding functions through the vector lEVAL can be applied to 
adding commands through the oector IGONE. The converse is true as 
well: Everything that we do in this article to modify existing BASIC 
commands, through the use of IGONE. can be directly applied to 
modifying existing BASIC functions through the vector lEVAL Now 
that we ve got that straight, let us begin our example. 

Implementing A Command Wedge 

While modifyingthe built-in commandsofthe BASIC interpreler may 
sound like quite a job, let me assure you that it is really quife easy lo 
do. Whenever BASIC wanis to execute a command^ it JMPs through 
Ihe vector named IGONE at S308/S309. The execution routine calls 
CHRGET to get the token of the command into the accumulator. Bit 7 
of this token is then masked off and the resulting value is multiplied 
by two. This result is the offset inlo the address table for the address 
(minus l)of the routine to execute. This address is then placed on the 

stack and a JMP is made to CHRGET to get the next byte of text. The 
RTS in CHRGET causes the PC to be loaded with the address of the 
routine to execute since this address was just placed on the stack. 
(Note: This method is almost exactly the same as the one] used in the 
parser for our function wedge in the last issue.) Armed with this 
knowledge, we can easily wedge into the execution routine, get the 
command token and decide if it is one of the ones that we wish to 
modify. If it is, then we will place the address of OUR routine on the 
stack, thus executing the new routine instead of the old one. If it is not 
one that we wish to change, we will give the token back to BASIC for 
further processing. 

An Example Wedge 

As an example of this technique, I have written a wedge which 
changes the action of several of the most commonly used BASIC 
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commands. The source code is provided and should be studied in 
order to gain a full understanding of the technique, F.ven if you have 
no interest in learning the techniques described here, you should find 
this example command wedge most useful in your own program 
developement. 

Listing 1 contains a BASIC loader for the wedge. Listing 2 is the source 
code. Listing 3 is an example program which illustrates the use of 
some of the modified commands. This short program may give you 
ideas for your own applications in addition to allowing you to test your 
copy of the wedge. 

The commands that we will modify are: 



RESTORE GOSUB 
LIST LOAD 

IF/THEN INPUT 



GOTO WAIT 
SAVE VERIFY 
NEW 



In addition, we will make the apostrophe (') act like the REM com- 
mand and the English pound sign act like an ELSE statement. It is 
noteworthy that each modified command will work exactly like the 
original command when the original syntax is used. This feature is 
very important in maintaining compatibility with older programs. 
What follows is a description of the modified commands with an 
example of each one. 
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(1) The first change in our modified BASIC is rhar the apostrophe is 
now Treated as a REM statement. This provides much neater 
looking listings. 

Ex. 10 this is a comment 

(2) The RESTORE command originally accepted no parameters and 
was used to set the data pointers back to the beginning of the 
program. However, there was no means provided to access a 
particular element of data when needed. The NEW RESTORE 
command provides TRUE RANDOM ACCESS to your data state- 
ments. It takes from zero to two parameters. If no parms are given, 
the original RESTORE is used. 

Ex, 10 read, a,b,c. data 2,4,6,8,10 

20 data 'PAM\'TAUL", "KELLY' 
30 restore 20:reada$ 
40 restore 10,4:read x 

The RESTORB command in line 30 sets the data pointer to line 20 
and AS will be assigned the value "RAM". In line 40, the RE- 
STORE command sets the data pointer to the 4th data element of 
line 10, so X will be assigned the value 8. Attempting to RESTORE 
to a line* or data element that doesn't exist will resuh in an 
informative error. (Try this with the example program in listing 3) 

(3) The new GOTO and GOSUB commands allow variable expressions 
as arguments, 

Ex. 10 if x>0 then goto X- 10 

20draw = 1000. paint = 2000 
30 gosub draw:gosub patnt 

(4) The new WAIT command does exactly what the name implies. It 
simply waits until a key is pressed. This command is incredibly 
handy and as an added bonus, once a key Is pressed, the new 
WAIT command leaves the ASCII value of the key at location 2. 

Ex 10prinl"Touchany key to continue" 
20 wait;print " ascH value ' :peek(2) 

(5) The new INPUT command is called INPUTS and, as the name 
implies, is used to input string variables. What sets this command 
apart from the OLD INPUT is the fact that 1NPUT$ will accept any 
character including quotes, colons and commas with no problems. 
This capability is extremely important in writing any kind of data 
processing program. (How many public domain database and 
mailer programs have you seen that crash if you try to include a 
comma or colon in an entry?) 

Ex. 10 print" enter datA: ^.inputSaS 

(6) The main point of the new IP command is the fact that it is 
compatible with the modified commands presented here. Since I 
had to write this routine anyway, I went ahead and added the 
capability to execute an ELSE clause in the event that the expres- 
sion evaluates to false. Rather than using the word ELSE, how- 
ever, the English pound sign (next to CLEAR/HOME) is used a.s a 
'token' for the word ELSE. Be sure to place a colon before the 
pound sign. In the example below, <L> represents the english 
pounds sign. 

Ex. ilx>10 then print "greater ":<L>print" less than" 



(7) The new LIST command is exactly like the old, except that it can be 
used in a program. The old list, you will recall, always returns to 
direct mode when finished. The new LIST command is invoked by 
adding an exclamation pomt after the word LIST. In order to 
preserve the integrity of the stack, the STOP key is not honored by 
the new LIST command- 
Ex. open4,4 crnd4:listl:print#4:close4 

You could use a FOR/NEXT loop to list multiple copies of your 
program (to give to the members of your user's group, etc.). 
Another way to use this new capability would be in writing a 
programming tutorial. You could list the lines l>efore executing 
them. For example; 

10 pnnt'this code moves the sprite " 
20 list! 1 000-1 030:wailgosub1 000 

(8) LOAD/SAVE/VERIFY ~ A radical change for these Ihree com- 
mandsl Not only do you no longer need to specify the device 
number, you don't even need To specify a name! Suppose you 
LOAD''STATI and after modifying the program, you want to save 
theupdated copy. Just type SAVE (with no name) and the program 
will automatically be replaced for you. Bui this is not a simple 
scratch & save. The new SAVE first backs up the old file and THEN 
replaces it. The backup filename will be the first two letters of the 
original filename followed by the suffix " .BAK " . 

Ex. Suppose we load STATl , then we modify it and type SAVE, \t 
will create a file named ST BAK which is the OLD STATl and then 
it will replace the old STATl with the new, updated copy. There- 
fore, you can safely and confidently type SAVE when you finish 
modifying a program knowing that a backup will be made in ca,';9 
the modifications are wrong. The program can then be verified by 
just typing the word VERIFY. (Note; Only one quote is required 
when a filename is used with any of these commands) 

Ex, (All of these are legal) 

load " $ 

load ■ slat 

load " Stat " 

load 'star ,8.1 

save:R£M save & replace 

save''name'':rem save (no replace] 

etc. 

!f you type LOAD. SAVE, or VERIFT with no filename and no name 
has yet been defined, you'll get a 'MISSING NAMF' error {Unless you 
have Epyx ^ASTLOAD m place — it defaults to a filename of M or 
something on LOAD), Note: Once a name is defined by usiny it in 
either LOAD, SAVE or VERIFY, this name will be the default for all 
three commands until a new one is defined. While LOAD & VERIFT 
don't mind a filename with a • jn jl, SAVF is unable to backup such a 
file and will abort. 

Also note. A program can be LOADED and RUN by depressing the 
SHIFTED RUN/STOP key, 

(9) The NEW cornmand has been modified so That it clears the default 
name when you type NEW so that you don't accidentdNy try to save an 
empty workspace. 
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Final Notes 

The above is just a glimpse of what you can do wiih Ihe vector IGONE. 
In addition lo just modifying commands, this vector is one of Ihe best 
places to ADD commands to BASIC. Don't forget, you can add 
COMMANDS through thi:^ vector using exactly the same technique 
that we used to add FUNCTIONS to BASIC through lEVAL in the last 
issue. (Likewise, you can modify existing BASIC functions through the 
vector lEVAL just as we modified existing BASIC commands through 
the vector IGONE in this issue.) 

Up until now, we have been examining wedges which make our lives 
as programmers a bit easier In my next article, we will examine a 
very useful, though somewhat unusual, special purpose wedge which 
makes makes USING a program easier. Until then, I will leave you 
with the following simple projects: 

(1) Add a command or a funciJon (your choice) called !NAME which 
either prints or returns the name of the file currently in memoo' 
Use the article from last issue as a guide. 

(2) Add a command called !SEND which will send any command to 
the disk drive. For example ISEND " SO:DATA " will scratch the file 
named DATA. 

(3) Modify the LIST command so that if you type LIST'n it will do a 
listing lo the previously opened hie number n. For example: 

OPEN 1,8,1/PROG.L" : LIST#1 CL0SE1 
Hints: 

(1) You can do this without a hint. 

(2) See last issue how to install new commands then just store the DOS 

command string in a place named CMD and call SEND (see listing 

2) as a subroutine, 
(3)ThiscodeaI the beginning of Ihe routine should do it for you: 



cmp#'r 
bne wherever 
jsr $b79b 
jsr $ftc9 
etc. . 



number sign? 
no/do whatever 
ge1file#fn x 
set output device 
same as list^ 



As was the case with our function wedge, this wedge is immune 
10 RUN/STOP-RESTORE and is compatible with most utilities 
including the DOS Wedge, the Function Wedge and Epyx Fas- 
tload Cartridge. 

Command Wedge BASIC Loader 



FK 
MK 
EM 
LN 
CA 
KD 
NG 
PN 
KK 

IK 
EG 

IK 
AK 

IP 
NL 



100 rem basic loader for command wedge 

101 rem by frank e.digioia 12/T8/85 

102 rem sys 49664 to achvate 
103; 

104 tor adr = 49664 lo 50356:resd ml 

1 05 cs = cs + ml poke adr, ml next 

1 06 ifcs<>a5465thenprint " error in data " 
107; 

108 data 169, 11, 141, 8, 3, 169. 194, 141 
109data 9, 3, 96, 32,115. 0, 32, 23 
1l0data194. 76,174,167, 76, 59,169,201 
111 data 39,240,249,201. 92,240,245,170 
112data 16. 32,162, 0,141, 72,194,189 
113data 73,194,240. 22,205, 72,194,240 
114 data 3,232.208.243, 138, 10, 170, 189 



AN 


llSdata 86, 194, 72, 


189, 


AH 


116daTa115, 0, 32, 


121, 


DF 


117 data 0. 133, 139, 


140, 


JA 


118 data 147, 148, 149, 


162, 


OK 


n9data195. 106, 194, 


4, 


PJ 


120dala195,247, 195, 


7, 


AN 


121 dala196, 249, 194, 


208, 


CO 


122 data 32,212, 194, 


165, 


HG 


123data233, 1, 176. 


1. 


01 


124 data 66, 32. 121, 


0, 


AO 


125 data 174, 32, 158, 


183, 


EL 


126 data 240, 38, 160, 


4, 


CP 


127 data 208, 31,200, 


177, 


BH 


128 data 58,240, 40, 


201, 


KA 


129 data 44,208,239, 


202, 


HI 


130dala101, 65, 133, 


65, 


CE 


131 data 96, 169, 131, 


44, 


CB 


132 data 200, 177, 65, 


240, 


LJ 


133 data 209, 208,245, 


169, 


BN 


134 data 194, 76, 69, 


164. 


CL 


135data247, 183, 32, 


19, 


HB 


136data227, 168. 96. 


68, 


CD 


, 137 data 69, 76. 69, 


77, 


IB 


138 data 78, 79, 84, 


32, 


DO 


139data 68, 128, 169, 


0, 


DK 


140data121, 0, 76, 


66, 


AP ' 


141 data 32,247, 183, 


76, 


Pfvl 


142 data 32,251, 163, 


165, 


PN 


143 data 72, 165, 58, 


72. 


EO 


144data141, 72, 32, 


5. 


AA 


I45data201, 33,240, 


6, 


GN 


146 data 156, 166, 169, 


52, 


JG 


147 data 71, 141, 0, 


3, 


NJ 


148 data 3. 32. 115, 


0, 


KK 


149data139, 141. 0, 


3, 


NA 


150 data 3. 169, 49, 


141, 


GC 


151 data 76.210,255, 


32, 


NF 


152dala 0.201, 137. 


240, 


BG 


153 data 255, 174, 165, 


97. 


GL 


154 data 32, 11, 169, 


170. 


FM 


155dala16a, 32. 121, 


0, 


DD 


156 data 168, 165. 122, 


56, 


IN 


157 data 176, 2, 198, 


123, 


DH 


158dala168. 104, 104, 


108, 


BJ 


159 data 240, 3, 76, 


191. 


ML 


160 data 240, 15, 162, 


0, 


BJ 


161 dala 13,240, 32, 


157, 


GE 


162 data 243, 169, 186. 


133, 


IK 


163 data 69, 164, 77. 


73. 


NP 


164 data 71, 32, 86, 


65, 


MO 


165 data 76, 69. 128, 


142. 


JH 


166 data 195, 32, 139, 


176, 


LB 


167 data 32, 163, 182, 


173, 


00 


168 data 180. 160, 2, 


185, 


LB 


169data136, 16,248, 


172, 


GC 


170 data 60, 3, 145, 


98, 


FN 


171 data 240, 3, 76, 


45, 


AN 


172 data 240, 251, 133, 


2, 


ML 


173da1a169, 0. 133, 


10, 


LL 


174data 1, 141, 197. 


196, 


FD 


175data255. 162, 8, 


32, 


NL 


176dala240. 19,141, 


170, 


NO 


177 data 153. 181,196, 


136, 


DA 


178 data 196, 206,248, 


240, 



85, 194, 72, 76 

0. 76,237, 167 

137, 141, 155, 146 

0, 149, 195, 90 

195, 13, 195, 39 

196, 14.196, 4 
3, 76, 29, 168 

95, 164, 96. 56 
136, 133, 65, 132 
240, 50, 32,253 
138,240, 41,202 
177, 65,201, 131 

65,240, 44,201 

34,240, 21,201 

208.236.152, 24 

144, 2,230. 66 

169, 34, 133.251 
6, 197,251,240 

227, 133, 34, 169 
32, 138, 173, 32 

166, 176, 3, 76 
65, 84, 65, 32 

69, 78, 84, 32 

70, 79, 85, 78 
141, 170, 196, 32 
166, 32,138,173 
163. 168, 169, 3 
123. 72. 165, 122 
165, 57, 72, 169 

195, 76, 174, 167 
32,121, 0, 76 

141, 20, 3, 169 
169,195,141, 1 

32, 156, 166, 169 
169,227, 141, 1 

20. 3,169, 13 

158, 173. 32, 121 

5, 169, 167, 32 

208, 11, 162, 92 

208, 24, 76,251 

176, 3, 76, 160 
233, 1, 133, 122 
160, 0. 32,251 

8, 3,201, 36 
171, 32. 115, 
32,207,255,201 
eO, 3.232.208 
34, 169. 195, 76 
83, 83, 73, 78 
82, 73, 65, 66 

170, 196. 32. 86 
133, 73,132, 74 
170, 196, 32, 117 

97, 0,145, 73 
170, 196, 136, 185 
136, 16,248, 96 
184, 32,228,255 

96. 169, 1, 44 
169, 0, 44, 169 
169, 0, 32, 189 
219,225, 165, 183 

196, 168, 169, 

177, 187, 153, 181 
38, 173, 170, 196 
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«o 



JJyT»B6:\foluin»7JWUa01 



LD 
LE 
NB 
IE 
CP 
OH 
NM 
BC 
PA 
EC 
NL 
FF 
AO 
HN 
KM 
DE 



1 79 data 

180 data 
lai data 

182 data 

183 data 

1 84 data 

185 data 

186 data 

187 data 

188 data 

189 data 

1 90 data 

191 data 

1 92 data 

1 93 data 

1 94 data 



240, 33, 

181, 196, 

141, 175, 

196. 173, 

32, 189, 

76.111, 

43, 32, 

224, 96, 

0, 141, 

82, 141, 

196, 76, 

32, 177, 

147,255, 

6, 32, 

174,255. 

46, 66, 



173, 197, 
141, 174, 
196, 32, 

170, 196, 
255, 173, 
225,166, 
216,255, 
169, 83, 
160,196, 

171, 196, 
140, 196, 
255, 169, 
162, 0, 
1 68, 255, 

0, 83, 
65. 75, 



196.240. 
196,173, 
114, 196, 
162, 181, 
197,196, 

45. 164, 
144, 3, 
141, 171, 

76. 140, 
169, 61, 
169, 8, 
111, 133, 
169, 171, 
232, 208, 

48, 58, 




18, 173 
182, 196 

32, 127 
160, 196 
206, 3 

46, 169 

76, 249 
196, 169 
196, 169 
141. 180 
133, 186 
185, 32 
196,240 
245, 76 
0. 
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Command Wedge Demo Program 



IF 
OF 
MG 
NK 
BO 
KJ 
EJ 
AC 
NL 
CE 
CF 
CE 
JK 
ED 
LD 
AD 
GB 
IB 
FH 
FN 
CO 

II 
AO 
AA 
HP 
LE 
JH 
DM 
CG 
GP 
LN 
EA 
HH 
EM 
fD 
AM 
BG 
Pi 
NL 



10' 

20 ' command wedge demo 

30' 

40' by Iranke. digjoia 

50-11/17/65 

60' 

70' 

80 print " press any key to slart " wait 

90 print:print " key toundf ascii " peek(2) 

100prin!"J||fouchany key to test list' 

1 10 wail list!:prinl''Hrrs1 done! " 

120 print "Hchoose a subroutine 1, 2 ,3" 

1 30 watt subr = peek(2)- asc( '^ ' ) 

135 itsubr<1 or subr>3 then goto 120 

140 gosLjbsLJbr-300 + 50. computed gosub 

142 print:print" type any chars; " ;:inpLJt$ z$. print "you typed: 

150 print.inpuf goto 170, 180 or 190 ";a 

1 55 ifaOl 70 and aOISO and a<>190 Iheni 50 

1 60 goto a 

ine#170".goto200 

ine#180" golo200 
line #190" 
touch any key for restore demo " 
210 wail. data 1,2,3,4,5,67,8,9.10 
220 print " ^^j dara in line 210 printed backwards' print 
230 ton = total step-1restore21 0,1. reada;printa;;next. print 
240 data " georgia ' , " clemson " , " use " 
250 data "cotons.:: ", "commas,,, ", "dot. " 
260 data "c64".'M541 ", "mpsBOl " 
270 prinT print " choose a data line. " 
280 input " 240, 250 or 260 " Mne 
285 it 10240 and li<>250 and li<>260 then 270 
290 print. pnnt " choose a data element " 
300 input" 1, 2 or 3 " :de.ifde<1then300 
310 restore line,de:read a$ 
320pnnT "B|element is. "a$;goto270 
350 print " executing subr ^1 " :return 
650 prfnt " executing subr #2 " :return 
950 print " executing subr #3 " :return 



"z$ 



170 print" 
1 80 print " 
1 90 pnnl " 
200 print " 




1000 






lOlO command wedge 




1020 by fraiike digioia 




1030 11/17/35 




1040 






1050- 


= Sc200 




1060. 






1 070 intt 


Ida i»<c wedge 


.install wedge 


1080 


sia £0308 




1090 


Ida ff>c wedge 




11O0 


sia $0309 




mo 


fis 




T120. 






1 1 30 cwedge = - 


.ihis IS the wedge 


1140 


isr Crhrget 


,gei next byle 


1150 


isr chklok 


what \s \P 


1160 


imp $a7ae 


.interpreter loop 


1170. 






iieorem 


imp Sa93b 


.basic rem command 


1190. 






1 ?00 cMktoK 


cmp fr$27 


single quoie'' 


1210 


beq rern 


.new rem command 


1220 


cmp frSSc 


/else pseudo- token 


1230 


beq tern 


,handleasjem 


3^10 


lax 


set flags 


1250 


bpl wexil 


.nol a loken 


1360, 






1270 


idx noo 


.use X as inde- 


1280 


5ta loKen 


.save lor compare 


I390t(oop 


Ida tokidb.x 


byle from table 


1300 


beq v^exif 


.end ol [afrfe 


1310 


cmp token 


a maich'? 


1320 


beq exec 


.yea/execuie it 


1330 


inx 


.no/bump index 


1340 
1350, 
1 3eO exec 


bne Hoop 


.keep looking 


fxa 


,put oHset in a 


1370 


asi a 


,mull by two 


1380 


tax 


.use as index 


1390 


Ida new;adr-i- 1, 


X , put address 


MOO 


pha 


.oinew routine 


1410 


Ida newadr.x 


on Slack 


1420 


pha 




1430 


jmp chrgel 


,next byleB. rls 


1440. 






1450 wexif 


|sr chrgol 


.ger byte agam 


1460 


imp Sa7ed 


:give it to basic 


1470; 






1480 token 


byle SOO 




1490, 






1500fQklab 


bviR385EebSac.$89.S8d 


1510 


byle S9b.$92,S93.£94.£95.Sa2.S0O 


1520; 






I530newadi 


^vord tnp-1.il-l. 


restoi-1 


1540 


word goto- 1 .go' 


iub l.list 1.wail-l 


1550 


word load- 1,?ave i.verly-l.new-l 


1560. 






1570 .resiort 


f >i,V - all parms optional 


1580. 






1590chrger 


=-■ SOO 73 


.get nei-t byte 


1600chrgof 


= SOO 79 


.gel last byle 


I6l0lrmnum - Sad6a 


yet numeric parm 


I630racinf 


= Sb7f7 


.change facto mt 


1630, 






I640resior 


= ■ 


.new restore cmd 


1650 


bne - + 5 


,any parms'^ 


1660 


imp Sa8id 


,rTo'use rom rouline 


1670 


[sr QGlpcm 


,ye!i/gel l.ne & adr 


1680 


Ida $5f 


address lo 


1690 


Idy S60 


.address hi 


1700 


sec 




1710 


sbc 1^*501 


subtrac! 1 


1720 


bcs -■*3 


■deer hi byte'' 


1730 


dey 




1740 


sta S41 


.data pointer lo 


1750 


5ty $42 


.data pointer hi 


1760 


}sr chrgot 


.another parm'? 


1770 


beq rck>ne 


."O/we're done 


1780, 






1790 


isr £aeld 


,yes/ctieck comma 


1800 


|Sr $b79e 


get byle into x 


1810 


txa 




1820 


beq fdone 


:0'th etemeni^'" 


1830 


dex 




1840 


beq rdono 


,1 St element/done 


1850 


Idy *I04 


,.yi5 text index 


1860 


Ida {£41). y 


,get by'e of text 


1070 


cmp WSe3 


.data statement'^ 


laso 


bne findat 


,no/lind It 


1890; 






1 900 [OOP 


my 


: comma search loop 


1910 


Ida {£4i),y 


.gel byte from line 


1920 


beg notind 


,end ol tjne 


1930 


cmp ft' ' 


.colon"? 


1940 


beq nolfnd 


.end of data simni 


1950 


cmp#S22 


.quote'' 



: 
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Juty I9S6: Votoma 7, toue Ol ] 



1960 


beq linqle 


.find dosing quole 


2950, 






3940 


byle $2c 


,skip next inslr 


1970 


cmp#',' 
bne loop 


1 ^7 r 

; com ma'' 


2960 .if — allows extended statements 


3950 save 


Ida "" 


#$01 


,flag for save 


1980 


;no/trv again 


2970, 






3960 


sta 


isfiag 


;slore our flag 


1990 


■found one! 


2960 il 


jsr Ead9e 


.evaluate expression 


3970 


Ida 


#soo 


; default length 


2000 


bne loop 


.need -x more 


2990 


|£r S0079 


,get last char 


39 BO 


jSr 


set nam 


,5el default name 


2010 ' 






3000 


cmp #£89 


. "goto" loken'^ 


3990 


Idx 


*S08 


,delaul! device* 


2020 


lya 

dc 


;pulofl£enn a 


3010 


beq chkexp 


,ye ah/check result 


4000 


jsr 


Seidb 


gel any parms 


2030 


.Update the data 


3020 


Ida #$a7 


;"lhen" token 


4010 


Ida 


lb 7 


;lengih ol name 


2040 


adc S41 


;poinier3 


3030 


isr Saefl 


;checkon "then" 


4020 


beq 


noname 


,no name specified 


2050 


sta S41 


■ r 


3O40chke^p Ida $61 


, expression irue'^ 


4030, 








2060 


bcc -44 




3050 


bne dofi 


;yes/execule cmd 


4040 


Sla 


len 


LSlorenew name 


^^ "^ "H "^ 

2070 


inc 142 




3060 


idx #E5c 


,psuedoiokenfor 'else' 


4050 


lay 




;use y as index 


2080 rdone 


ris 




3070 


jsr Sa90b 


.look (or "else" 


4060 


Ida 


*soo 


;end name wilh 


2090; 






3080 


tax 


.eoln^ 


4070 


sta 


namey 




2100linda[ 


Icta *IB3 


;loken tor data 


3090 


bne cmmd 


.no/do else eta use 


4080' 








2110 


byle $2c 


;skip nexlinsir 


3100 


imp $a81b 


.yes/ update Ixlplr 


4090 nioop 


dey 




;tDpy new filename 


2120 ■ 


■ ~ 


3110 




.and reiser n 10 inlerp 


4100 


Ida 


{%m y 


,gei byte ol name 


21 30 tjfiqte 


Ida *S23 


,asciilor quote 


3l20doH 


jsr chrgot 


,get lasi char 


4110 


sEa 


narrie.y 


;save it 


2140 


sla $fb 


,saue byte lo hnd 


3130 


bcs decptr 


;noi digiVexecule il 


4120 


bne 


nIoop 


keep il up 


2150; 




J 


3140 


imp SaeaO 


.dig It/execute golo 


4130 


beq 


ekii 


; continue commanc 


2l60btoop 
2170 


= - 

iny 

Ida ($41),/ 


.find by(e ai Sfb 


3150; 

3l60decptr 


Ida S7a 


; decrement t>iiptr 


4140, 

4 1 50 noname = 


4 


;no name specified 


2180 


.gel byleof lext 


3170 


sec 




4160 


Ida 


len 


,is name defined'' 


2190 


beq noUnd 


.endoMtn© 


3180 


sbc #S01 




4 WO 


beq exit 


; no/error coming uc 


2200 


cmo $lb 


;found(t^ 


3190 


Sla $7a 




4780 


Ida 


IsfLag 


,load or save' 


2210 


■_ri ■ ^_r ^^ r-r 

beq loop 


yes'golD mam loop 


3200 


bcs - + 4 




4190 

- j^ j^ yi. 


beq setup 


Joad/linish up 


2220 


bne bloop 


,no/keep looking 


3210 


dec £7b 




4200; 








2230' 


1 




3220 


idy #S00 


, clear ylor update 


4210 


Ida 


name 


;sel up two char 


2240 nolfnd 


■= V 


,prini mesQ 3. d<e 


3230, 






4220 


sta 


abr 


, abbreviation of 


2250 


Ida #<JT>S9 


' p^ ^ 


3240 cmmd 


jsr Sa81b 


updaiefexf pointer 


4230 


Ida 


name + 1 


lilename for 


2260 


sia S22 




3250 


pla 




4240 


Sla 


abr* 1 


,easy backup 


2?70 


Ida ff>m5g 




3260 


pla 




4250; 








2280 


imp Ja445 


.output err mesg 


3270 


imp ($0308) 


.execute via vecior 


4260 


jsr 


scrach 


.scratch old backup 

1 1 


2290, 


J 1 




3280, 






4270 


|SI 


rename 


, create backup cop' ■ 


2300 gelprm 


= - 


;qel parm & check il 


3290,inpulS 


-- input any stnng 


1 


4280. 








2310 


[sr frmnum 


' lIt I 

.oet parm mfac 


3300, 






4290 selup 


Ida 


len 


;get paramelers 


2320 


jsr tacini 


.convert to ml 


3310 wbuf 


= S033C 




4300 


Idx 


fii<name 


.for (ilename to 


2330 


jsr £a6l3 


;gel adr oHme 


3320; 






4310 


Idy 


#>name 


.load or save 


2340 


bcs found 


J me found' 


3330 inp 


cmp#'S' 


;our corrimand'' 


4320 


|sr 


setnam 


.sei parameters 


2350 


imp Ea8e3 


,no/undef'edline 


3340 


beg - 15 


,yes/il's ours 


4330; 








2360 lound 


ris 




3350 


imp Sabbf 


,no^old mpul 


4340 exit 


Ida 


Isflag 


,load or save'^ 


^^^m ^^^ ^^^ ^^^ ^^ ^^^m ^^^ 

2370 






3360 


jsr ch'gei 


,next byle 


4350 


bne save2 


;save command'' 


2380 msQ 


byle 'daia element not found' 


3370 


beq xl 


.missing parameter 


4360 


imp 


Sel6f 


.coniinue load cmd 


2390 eom 


byle 180 




3380; 






4370, 








2400; 


f ^ 




3390 


idx #$00 




4380 save2 


Idx 


52d 


;end adr of save 


2410, new - 


- clear de^aul' name 


3400 gelii 


|£r Sflcl 


;inpul byle 


4390 


Idy 


I2e 


;i e siart ot vars 


2420. 






3410 


cmp #EOd 


, carnage return'^ 


4400 


Ida 


#$2b 


;poin| lo Stan adr 


2430 new 


Ida #S00 


;se( length z^fO 


3420 


beq eoi 


; yes/end of input 


4410 


ISC 


SIfda 


;coniinue save cmd 


2440 


sta len 


,10 clear name 


3430 


sta wbuf.x 


,save il 


4420 


bcc 


- + 5 


,normal termination 


2450 


|sr chrgol 


.oet last byle 


3440 


injt 




4430 


imp 


Se0f9 


;i>o/'break' error 


2460 


imp Sa642 


'J 1 

, basic new command 


3450 


bne geiii 


;abso!uie jump 


4440 


rfs 






2470; 


J 




3460, 






4450. 








2480 ;go>o - 
2490, 


- com puled goto 


statement 


3470 y,^ 
3480 


Ida #<noprm 
sta S22 


.sel up error mesg 


4460 scrach 
4470 


Ida 


#'s' 


;scratcfi backup 
;'s' for scratch 


2500 golo 


isr frmnum 


qel parm in lac 


3490 


Ida ff>noprm 




4480 


sta 


cmd 


;set command 


2510 


|SF lacint 


.conuer! lo mfeger 


3500 


imp Sa445 


oulput mesg 


4490 


Ida 


flSOO 


, end of bufer 


2520 


imp SaSaS 


, that's all loiks! 


3510 noprm 


byle massing vanable'.SeO 


4500 


Sla 


equal 


;no equal sign 


2530, 


J n ^ 




3520; 






4510 


jmp 


send 


,send dos comman< 


2540 ,gosub 


■ computed gosub statement 


3530 eoi 


SIX len 


;save len 


4520; 






1 rill 


2550; 






3540 


|Sr cr 


.output <cr> 


4530 rename = 


* 


,rename old fife 


2560 gosub 


Ida #S03 


,haif # of byles 


3550 


jSr SbOeb 


,l00k up varFable 


4540 


Ida 


ttr 


,1 for rename 


2570 


|Sr Sa3lb 


, enough slack space? 


3560 


sla S49 


;5ave address 


4550 


sta 


cmd 


;sel command 


2560 


Ida $7b 


,iex[ pomief hi 


3570 


Sly £4a 


;as pomier 


4560 


Ida 


*■ = ' 


.equal sign 


2590 


pha 




3580 


|Sr $b6a3 


.free siring 


4570 


sta 


equal 


4 jX| 

.where eise^ 


2600 


IdEi £7a 


;lexl pointer lo 


3590 


Ida len 


get lengih 


4580 


imp 


send 


;send dos commanj 


2610 


pha 




3600 


|S^ Sb475 


.reserve space 


4590, 








2520 


Ida £3a 


■Itne number hi 


3610 


Idy #S02 


,3 bytes to copy 


4600, 








2630 


pha 




3620 i4 


Ida S61 V 


, copy string dscrptr 


46 10. send ' 


— Ihis routine cai 


-\ be used 


2640 


Ida S39 


,line number \o 


3630 


sta ($491,y 


;lo variable lable 


4620,10 send any 


dos command lo drive | 


2650 


pha 




3640 


dey 


;bump counier 


4630 ;be sure to end command with zero | 


2660 


Ida #$8d 


;tokenfor gosub 


3650 


bpl i4 


;|HI done 


4640 . 








2670 


pha 


,asf d on stack 


3660; 






4650 ciout 


-I 


$fla8 


,send serial port 


2680 


jST golo 


,do a goto 


3670 


Idy len 


:ge1 iengih 


4660 listen 


i 


Stlbl 


;lell drive listen 


2690 


imp Sa7ae 


.interpreler loop 


3680 


dey 


, bump down 


4670 second = 


£fl93 


;send 2nd adr Isln 


2700. 


f 


H ■ 


3690 t5 


Ida wbuf.y 


.copy siting data 


4680 unlsin 


E 


Stiae 


:quii listening 


2710 .lisl - a hsl subroutine 




3700 


Sla (S62).y 


,10 reserved loc 


4690, 








2720 






3710 


dey 


, bump counter 


4700 send 


tea 


^S08 


; device number 


2730 li£l 


cmpff'i' 


;oui commarhd'^ 


3720 


bpl i5 


^till done 


4710 


£ia 


£ba 


, store for system 


2740 


beq 11 


;yesyuse our routine 


3730 


ris 




4720 


jsr 


ksien 


, listen lo command 


2750 


jsr chrgol 


,no/resel tlaqsA 


3740; 






4730 


Ida 


ffS6f 


,ch#or'ed w/$60 


2760 


imp Ia69c 


;use normal list 


3750 ,wait - 


- pause until key pressed 


4740 


sia 


Sb9 


secondary adr 


2770 


J ~ ^ 




3760. 






4750 


|Sf 


second 


,5end It 10 drive 


278011 


Ida #$34 


; disable slop key 


3770 wait 


beq - + 5 


,any parms^ 


4760; 








2790 


sta $0314 


.lo byle of irq 


3780 


imp Sb82d 


.yes/ use old wait 


4770 


Idx 


ffSOO 


;use » as inde> 


2800 


Ida #<ritn 


, point error 


3790 wloop 


|sr $lfe4 


,gel character 


4780 dbop 


Ida 


cmd.x 


.gel byte ol cmd 


2810 


sta $0300 


, vector at return 


3800 


beq wloop 


,bufler empiy^ 


4790 


bee 


1 exiti 


,0 byte marks end 


2820 


fda fli>r|fn 


;address lar lisl 


3810 


sta $02 


,save character 


4800 


isr 


cioul 


, output 10 drive 


2630 


sta $0301 




3B20 


rLs 




4810 


mn 




.bump pointer 


2840 


(sr chrget 


,get next byle 


3830; 






4820 


bne 


■ dioop 


,impfodloop 


2850 


isr Sa69c 


.real hstcmd 


3840 , load/save — all paims optional 


4830, 








2860; 


p ^ 




3850, 






4840e'<itl 


imp 


unlsin 


.all done' 


2870 rtrn 


Ida ^$6b 


.set errof 


3860setnam = Sflbd 


,set name parameter 


4850, 








2660 


sla S0300 


■vector t>ack to 


3870 set"s 


= Eflba 


,seilile parameter 


4860 len 


byte EOO 




2890 


Ida #Se3 


; normal. 


3990, 






4870 cmd 


byte sO ' 




2900 


Sla $0301 




3890 verfy 


Ida ^^101 


verily flag 


4880 abr 


byi 


e SOO SOO. 


bak' 


2910 


Ida P$3i 


.enable slop key 


3900 


byle S2c 


.skip next msir 


4890 equal 


byte EOO 




2920 


Sla $0314 


;lo byle of irq 


39 10 load 


Ida ffJOO 


.Hag for load 


4900 name 


+ = 


- + 7b 




2930 cr 


Ida tf$Od 


.carrjage return 


3920 


sta SOa 


,sio«e system flag 


49i0isllaQ 


byie 5U0 




2940 


,mp $lfd2 


, output II 


3930 


Ida #tOO 


;acilike load now 


4920 end 
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Improving 

The SYS Command 



Neil Boyle 
Calgary, Alberta 



.make use of those machine language 
routines supplied free by Commodore. 



The SYS command in BASIC is very useful - il gives the 
programmer access to the fast, precise world of machine 
language. The writers of the Commodore BASIC interpreter 
realized that programmers often wish to transfer values from 
BASIC to machine language, so they included the USR com- 
mand, a specialized form of SYS. Unfortunately, the USR 
command is limited to Iransfering one numeric value. A useful 
extension of the SYS command would allow the passing of 
multiple parameters in the form of values, variables, equations 
and strings, A simple method of doing this would be to 
calculate the values in BASIC and poke them into memory, 
then SYS to the ML program and have it read the values- 
Effective, but awkward, slow and clumsy. 

A faster and more elegant method is to make use of some of the 
machine language routines supplied free by Commodore - 
those in the BASIC interpreter and the KERNAL There are 
routines for converting floating point values to integer and 
back, for evaluating BASIC expressions, for manipulating 
strings, for printing data in numeric or string form, for storing 
data in variables, and for printing interpreter or KERNAL error 
messages. In addition, all mathematical functions handled by 
the Commodore 64 can be used from a machine language 
program. These routines are faJrly simple to use, and open up 
innumerable opportunities. 

The data which can be passed back and forth between the two 
languages usually takes one of three forms: string, integer or 
floating point. Strings are fairly straightforward, and are han- 
dled much the same way in each language. Integers, too, are 
fairly simple, but can be stored in one, two or more bytes. 
Numbers outside the range of BASiC integers (-32768 to 
32767), or those with decimal points, are stored in floating 
point format, and require 5 or 6 bytes. One advantage of using 
the interpreter routines rapidly becomes apparent: floating 
point values can easily be converted to integer and back. Thus, 
data can be converted from one form to another, manipulated, 
and converted back, effortlessly (well, almost). 



The real problem lies in transferring the parameters from one 
program to the other. A simple method of doing this using 
these routines takes the following format: 

SYS PA, vafuel , value2, vafue3 

where PA is the starting address of the ML routine, and valuel- 
3 are the parameters to be passed. For each parameter, ML 
routines must be called to check for the comma and to evaluate 
the parameter. The routine at $AEFD checks for a comma and 
returns an error message if it is not found. The value following 
the comma can t>e evaluated by the routine at $AD9E. The 
value can be anything that BASIC can evaluate: strings and 
string functions, integer or real or txjolean equations, variables, 
etc. If the value is a string or a string function, the result is 
stored at $0100, and if numeric, it is stored in floating point 
format in FACl. FAC1, or floating point accumulator "I, is 
located at $62 to $65, and is used by the BASIC interpreter for 
floating point value manipulation. If the type of data to be 
passed is unknown, reference to two flags will sort this out. The 
location $0C is used to indicate the type of data - 255 for string, 
and for numeric. The type of numeric data is indicated at $0D 
- 1 28 for integer and for floating point. An alternate evalua- 
tion routine exists at $B79E. Following this evaluation, the 
expression is stored as a one-byte integer (range 0-255) in the 
X register, 

I wrote the following relocatable ML program to demonstrate 
this method of extending the SYS command. The program is a 
PRINT AT routine which allows the programmer to specify the 
column and row of his/her output to the screen. This is simpler 
and cleaner than fiddling about with embedded cursor con- 
trols. The format is: 

SYS PA, col, row, value 

PA - the address of the start of the ML routine 

col - the numt)er of cols from the left screen border (0-39) 

row - the number of rows from the top of the screen (0-24) 

value - anything the PRINT command can handle 
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In this example, the SYS command is followed by the parame- 
ters to be passed, separated by commas. This line SYS's to PA. 
the iocalion of the ML routine. The ML program then checks for 
a comma, evaluates the next parameter, col, and stores the 
value in the X register. If it is within the acceptable range, it is 
stored on Ihe stack. The row parameter is placed in the X 
register in the same manner, and checked for size. The col 
parameter is pulled from Ihe stack, transfered to the Y register, 
and the KERNAL Plot routine is used to relocate the cursor. 
Should either parameter be out of range, the error message 
"ILLEGAL QUANTITY" Is printed. 



;check for comma after SYS 

;evaluate expression for column number 

(col), store in .X 

;mustbelessthan40($28) 

;if not, print error message 

;store column value on stack 
icheck for comma after coi 
;evaluate expression for row number (row), 
store in ,X 

;mustbelesslhan25($l9) 
;if not, prim error message 
;retrieve col from stack and 
;slore in .Y 

;clear carry for KERNAL plot routine 
;Kernal plot - put cursor at location speci- 
fied in .Xand -Y 

;setup for BASIC interpreter print routine 
;BASIC PRINT routine - print following 
expression 



jsr 


Saefd 


}sr 


$b79e 


cpx 


'$28 


bcs 


error 


txa 




pha 




jsr 


$aefd 


jsr 


$b79e 


cpx 


*$19 


bcs 


error 


pla 




tya 




cic 




jsr 


$fffO 


jsr 


$0073 


jmp 


SaaaO 



delete line 110 from the source program, and add the line 
10 hsted below. Line 10 sets PA equal to the memory 
address ol the first of the 39 spaces in the REM statement 
and line 120 stores the ML program in the REM statement. 
RUN the program, then use line 10 as the first line of your 
program. The remaining lines can be erased, and iine 1 
can be renumbered, used and stored as wished, but it must 
remain the first line in the program if PA is kept as location 
2063. 



10pa = 2063:rem 



<39 spaces> 



Example: sys pa, 4, 6. "■ « " ;pa;sqr(144) + 1 2*6 

This example will print an asterisk in column 4 row 6» followed 
by the value stored in PA (starting location of the ML program), 
and then the value of Ihe equation (84). 

Following is a short list of some of the more useful data 
manipulalion routines in the BASIC interpreter and KERNAL: 

Routines used in passing parameters: 

$aefd checks for a comma in the BASIC statement. 

$ad9e evaluates any expression in the BASIC statement and, if 
numeric, leaves the results in FACl, If the expression is 
a string, it is stored starting at $0100, and ends with a 
zero. 

$b79e evaluates the expression in the BASIC statement, stores 
the value in FACl, then converts FACl into a an integer 
in the range to 255, and stores Ihe result in the X 
register. 



error !dx "SOe ;errof *i4- illegal quantity 

jmp $a437 ;prinl error specified by value in .X 

The following BASIC source program will place the program at 
memory location PA: 



100 rem print at - source program 
1 10 pa = 491 52: rem location of ml program 
120 fori = patopa + 38: readapokej,a: next 
ISOdata 32,253,174, 32,158,183,224, 40 
140data176, 24,138, 72. 32,253,174, 32 
150 data 158, 183,224, 25,176, 12,104,168 
leOdata 24, 32,240,255, 32,115, 0, 76 
170 data 160, 170 J 62, 14, 76. 55,164 




Possible locations for the ML program are unused Page 
Two RAM $02A7 (679), tine tape buffer $033C (828) or free 
RAM $C000 {49152). In the program, fet PA equal your 
choice of location and it will be stored there- 
One convenient but unusual place to store a short (less 
than 75 byte) ML program is jn a REM statement. To do this, 



Routines to convert 

floating point values in FACl to integer values: 

$bc9b converts a floaling point value in FACl to a four-byte 

integer in FACl. 
$blbf converts a floating point value in FACl to a fixed point 

integer stored in $64 and $65, range -32768 to 32767. 
$b7al converts a floating point value in FACl lo a fixed point 

integer in the X register, range to 255, 
Sblaa converts a floating point value in FACl to a 2-byte 

integer leaving The liigli byte in the accumulalor and 

the low byte in the Y register- 
Routines to convert 
Integer values lo floating point values in FACl: 

$bc44 converts a 2-byte integer in $62 and $63 to a floating 

point value in FACl. 
$bc3c converts the accumulator lo a floating point value in 

FACl. 
$b3a2 converts the Y register to a floating point value in FACl. 
$b391 converts a 2-byte integer, high byte in the accumulator 

and low byte in the Y register, to a floating point value 
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inFACl. 



Routine to convert 

a floating point value in FAC 1 to an ASCII string: 

Sbddd converts a floating point value in FACl to an ASCII 
string starling at $0100. 



Other useful routines: 

$a437 prints the error message (from the table at $A19E) 
corresponding to the value in the X register. For exam- 
ple, loading a 14 in the X register and then jumping to 
this rouline produces Ihe error message "ILLEGAL 
QUANTITY '■ , 

$aaaO PRINT command - prints whatever follows, checking 
for TAB, SPC, commas and semicolons. A jsr to the 
CHRGET rouline is needed before jumping to this 
routine. 



Useful routines and flags 

from Zero Page and the KERNAL: 

$73 - CHRGET - gels the next character in a BASIC state- 
ment. 

$0c - flag: type of data, A value of 255 Indicates a string, and 
a zero indicates numeric data. 

$0d -flag: type of numeric data, A value of 128 indicates an 
integer, and a zero indicates a floating point value. 

$fffO - KERNAL plot routine - if the carry flag is cleared, the 
cursor is placed at the column in the X register and the 
row in the Y register. 



Reference locations: 

FACl -$62--$65 (floating point accumulator) 

FAC2 -$69"$6E 

accumulator -S30c (780) (.A) 
X register -$30d (781)(,X) 
Y register -$30e (782) (.Y) 

Using these BASIC interpreter routines opens many possibili- 
ties in combining BASIC and ML programs. Ail forma of BASIC 
data, equations, and variables can be passed to ML programs, 
and ML data can easily be passed back. For a more complete 
description of these routines, I refer the reader to "Compulei^s 
VIC-20 and Commodore 64 Tool KIT: BASIC'^ by Dan Heeb, 
which has been the source of innumerable ideas for me. 



Thanks also to Sheldon Leemon and his invaluable book. 
"Mapping the Commodore 64", for descriptions of these rou- 
tines. For those more interested in the actual code for these 
routines, it can be found in "The Anatomy of the Commodore 
64" from Abacus Software. 



OM 


100 rem printer 


version 




GD 


120open4 


,4 






GC 


130 pnnt#4,chr$(27)''p"chr$(66) 


IG 


1 40 close4 








CE 


150open4,4,2 






BH 


1 60 sysZOO 






KH 


170 .optoo,p4 






KC 


180. 










CG 


190. 


ml print ai 






OD 


200; 










E 


210; 










KG 


220 chrget 


^= 


$73 


;get next character 


OC 


230 errprt 


^ 


$a437 


;print error type .x 


GH 


240 print 


;= 


$aaaO 


; basic print 


KD 


250 comchk= 


Saefd 


;check for comma 


JK 


260 eva xr 


;^ 


$b79e 


;putexp in x 0-255 


GL 


270 setcrs 


^ 


$fffO 


;kerna -place cursor 


JA ' 


280* 


^s 


$cOOO 




IJ 


290; 








00 


300 


jsr 


comchk 


;cfieck for comma 


00 


310 


sr 


evaxr 


;evauatecolin ,x 


LN 


320 


cpx 


col 




GE 


! 330 


bcs 


error 


;branch if col >= 40 


lA 


340 


txa 






HO 


350 


pha 




;storeco on stack 


KG 


360 


jsr 


comchk 


;check for comma 


ML 


370 


jsr 


evaxr 


;evaluate row in.x 


HE 


380 


cpx 


row 




NL 


390 


bcs 


error 


;branchif row>= 25 


AH 


400 


pla 




;get col from stack 


JG 


410 


tay 






KB 


420 


cic 






PF 


430 


jsr 


setcrs 


;set cursor atx,y 


EH 


440 


jsr 


chrget 


;flrst char tor print 


GB 


450 


jmp 


print 




IL 


460 


rts 






MO 


470 error 


Idx 


toobig 


; parameter too big 


GE 


480 


jmp 


errprt 


;print error .x 


AH 


490 col 


.byte 40 


;#of coumns 


OP 


500 row 


.byte 25 


;#of rows 


HA 


510 toobig 


byte 14 


;illegal quantity 
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Autoload & the EPROM 

by Tom Hughes & Steve McCrystal 
Milwaukee. Wisconsin 



When the power comes up, so does your application program! 



Imagine you're using your Commodore 64 to operate a comput- 
erized bulletin board and one stormy day a stray lightning boll 
knocks ouf the local power station. Your BBS crashes. Of 
course you're not around to pick up the pieces, so when power 
finally is restored your 64 sils idly, flashing its cursor, whiie 
your modem keeps answering and answering and answering 
those incoming phone calls. 

If your 64 had been equipped with Autoload, the computer 
would have automatically loaded and run the first disk pro- 
gram (your BBS loader) immediately after power was restored. 
You could have been miles away. 

Autoload is a short routine that resides in the 64's KERNAL. 
Think of Autoload as a ''hard" wedge as opposed to the ''soft" 
DOS 5.1 wedge which vanishes as soon as the 64 is turned off. 
Since it is designed to become a permanent part of the com- 
puter's operating system, the only practical way to use Auto- 
load is to burn it into an EPROM (along with the rest of the 
KBRNAL) and then replace your old KERNAL with the Auto- 
load EPROM, 

Autoload is able to load and run a disk file because it bypasses 
the 64's normal start-up or RESET routine. Normally, on 
power-up or a cold start the 64 jumps to the RESET vector a! 
$FFFC-FFFD which points to $FCE2. This routine sets the VIC 
|[ chip and the operating system's soft vectors at $0300, 
initializes BASIC, resets the stack, and finally turns control ol 
the 64 over lo the BASIC interpreter. Autoload performs all of 
Ihesehousekeepingfunctions. butit alsodoesaLOAD "0:* ",8 
and then stuffs the keyboard buffer with the BASIC command 
RUN. Finally, it jumps to BASIC, which sees it has a RUN 
command waiting, and that's that. 

What if you're not running a BBS? If youVe 64 isn't a "dedi- 
cated*' or single-purpose computer. Autoload could become 
quite a nuisance. Each time you flipped on the 64's power the 
computer would always - repeat always - try to load and run. To 
get around this potentially annoying feature, Autoload pauses 



about 1 minule before loading, and at any time during this 
delay you can abort the load by simply pressing the Commo- 
dore logo key. This deiay also serves a second purpose; it 
allows a disk drive enough time to reset itself. For some drives 
that do a self-initialization, like the 4040, there's a chance of a 
''device not present" error occurring if the drive is accessed too 
soon. 

Nothing's free . . . you'll need to get a suitable EPROM and 
have access to an EPROM burner, for example, the Promenade 
(see section below). Also, forget about using a cassette with 
Autoload because Autoload resides at $F72C and effectively 
erases part of a KERNAL cassette routine. However, patches 
have been placed in the KERNAL which protect you from 
attempting any cassette operations. One final note: Replacing 
the KERNAL that came with your 64 with the Autoload custom 
KERNAL will void your computer's warranty. 

Ifyou're willing to part with the use of a cassette, then there's a 
fair amount of ''free space" in the KERNAL for other customiz- 
ing. For example, the cassette locations between $F72C-FB8D 
and $FB97-FCD0 seem to be ripe territory. Since all this space 
is available, why not make use of it? 

Other KERNAL modifications might include; 

• writing your own power-up message at $E479. 

• adding a "hard" DOS wedge. 

• an IEEE KERNAL, 

• a routine to read and set the time-of-day clocks, 

• or any number of short, general purpose programs that 
you use repeatedly. 

Thanks to the bank-switching capabilities of the Commodore 
64, custom KERNAL routines can usually be soft tested; that is, 
run without using an EPROM, The source code for Autoload, 
for example, includes a conditional assembly variable, called 
EPROM, that allows Autoload to be soft run "under" the 
KERNAL ROM itself. 
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Here are the steps involved for »oft running Autoload: 

(1) Assemble Autoload with the variable EPROM = 0. 

(2) Load a machine language monitor and run it, 

(3) Using the monitor, save the KERNAL ($EOOO-FFFF} as a 
disk file. Then load it back. You now have an exact copy of 
the KERNAL in the RAM under the KERNAL. 

(4) Transfer BASIC to itself. For example, most monitors have 
a transfer command such as T AOOO BFFF AOOO'. This 
moves BASIC to the RAM under itself. 

(5)* Load the assembled Autoload from disk. This adds Auto- 
load to the RAM KERNAL 

(6) Create this bank switching routine with the monitor: 

START SEI 

LDA -$35 
STA $01 
CLI 
RTS 

This short machine language routine will flip out both the 
KERNAL and BASIC ROMs when it is called and transfer 
control of the 64 over to the customized Autoload KERNAL. 

(7) Exit the monitor and do a SYS to START. Autoload is now 
in place. Next, type SYS 64738 (a RESET) and Autoload 
should do its stuff. 

* NOTE; Commodore's assembler won't allow its object code to 
be directly assembled to ROM, However. CBM's H1LOADER64 
and LOLOADER64 programs can be modified to assemble into 
ROM with a few pokes which place 6502 NOP instructions in a 
comparison routine: 

For LOLOADER64. POKE 2388,234 and POKE 2389,234 
For HILOADER64. POKE 51525,234 and POKE 51526,234 

Using the Promenade EPROM Programmer 

Making a modified KERNAL can be done using any of several 
EPROM programmers or "burners" available to home users. I 
use the Promenade sold by Jason-Ranheim Co. of San Jose, 
California, and recommend it highly because it's inexpensive, 
simple to operate and very versatile. 

Until recently, I used the 2764-type EPROM as a KERNAL 
replacement chip because of its low cost. However, this is a 28- 
pin chip. Since the KERNAL ROM has a 24-pin configuration, 
the 2764 requires an adapter socket and some jumper wires 
before it can be plugged into the 64's circuit board. 

But because of recent price decreases in the Motorola MCM- 
68764, this chip is now my EPROM of choice. The Motorola 
EPROM, unlike the 2764, is pin compatible with Commodore's 
KERNAL chip. The additional cost of the MCM-68764 is offset 
by not having to fool around with an adapter socket interface. 



To program a custom KERNAL with the Promenade, the 
modified machine code must be loaded into the 64's memory. 
For example, I relocate the custom KERNAL at $2000 simply 
because it's easy to remember. The EPROM is then pro- 
grammed or "burned" by the EPROM programmer. Using the 
Promenade (with the Promenade software) with the KERNAL 
at $2000 and the 68764 chip, the programming command has 
the following syntax: 

7x8192,16383.0,48,0 

"8192" = decimal start address of the code to be burned 
($2000), 

decimal end address of the code {$3FPF), 
first byte of the EPROM to be programmed. (Re- 
member, computers start counting from zero). 
Promenade "control word" which tells the burner 
what type of EPROM it's burning. 
Promenade "program method word" or PMW, This 
gives the Promenade instructions on how the 
68764 should be programmed. 



"16383" 
"0" 

"48" 

"0" 



Promenade owners take note: You won't find the above PMW 
listed in your documentation. I was forced to develop my own 
PMW because the suggested ones failed to work on the 68764 
about 90% of the time. 

EPROM burning takes about 4 minutes. If the error light isn't 
flashing on the Promenade after the burning, then the custom- 
ized KERNAL is ready to install. 

Motorola MCM-68764 EPROMs are available from JAMECO 
Electronics in the United States as well as other sources. 
Besides being a direct replacement for the KERNAL, this 
EPROM can also replace BASIC as well as the 1541 disk drive's 
ROM, 

Autoload Kemal Patch (CBM Assembler format) 

put" ©is/kauto' 
opt nosym 



autoload kernal 



on powerup or reset, loads 

the 1st file from drive 

and then runs the program. 

however, a delay pertod is 

provided allowing the user 

time to abort the load by 

pressing the cmdr logo key. 

- by torn hughes v240685 - 
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.skip 


(; sends line feed(s) to printer ) 




]mp 


autold ; 


go to autoload 










.page 'autoload' 




;c64 equates 
basic = 

i 


$0801 
$e3bf 


ibasic starts here 
;initialize basic 


*. 


^ 


$f72c 




ipowerup autoload 




basin 1 


^^ 










basmsg 


z^ 


$0422 


;print powerup message 


.skip 








clall 


^= 


$ffe7 


;closeall files 


autold 


jsr 


vec300 


;set $0300 vectors, 


close 


^z 


$ffc3 


;c1ose one f i e 




jsr 


basini 


initialize basic, 


crchn 


:r 


$ffcc 


;i/otodefauts 




jsr 


basmsg 


;print powerup message. 


dobas 


^= 


Sa474 


;basic warm start 




Idx 


#251 


;and reset stack 


keyd 


^ 


$0277 


;keyboard buffer 




txs 






load 


^ 


$tfd5 


;load ram from disk 




Ida 


#0 


;zero jiffy clock 


ndx 


— 


$c6 


;# of chars in keybrd buff 




jsr 


settim 




setlfs 


^ 


Sffba 


;set file parameters 


auto 10 


Ida 


shflag 




setnam 


^ 


Sffbd 


;set fie name 




cmp 


#2 


;jf cmdr key pressed, 


setlim 


::^ 


Sffdb 


;set jiffy clock 




beq 


auto30 


;skipthe oad 


shflag 


^*TX 


$028d 


;sh if t pattern register 




Ida 


time + 1 




lime 


— H" 


$aO 


;jiffy clock (3) 




cmp 


#wait 


;elsewaittilldeay isup 


vartab 


^ 


$2d 


;basic variable start (2) 




bne 


auto 10 




vec300 


^^ 


$6453 


;set page3o.s. vectors 




jsr 


call 


;then close all files 


.skip 










Ida 
Idx 


#2 
#8 




;constants 








Idy 


#0 


; ignore file header 












jSf 


setlfs 




eprom 


^ 





; 1 = eprom/O = soft kernal 




Ida 


#3 




wait 


:= 


3 


;wait * 4 == de ay in sees 




dx 


#<fjlnam 




.page 'diversions' 






Idy 


#>filnam 














jsr 
Ida 


setnam 




; cassette routine patches 






#0 


;load "0.*\8 












Idx 


#<basic 




.skip 










Idy 


#>basic 




:note; attempted use of a cassette routine 




jSf 


load 




;will result in 


illega device 


^.tt' 




stx 


vartab 


;setend-of-basicptrs 


.skip 










sty 


vartab -f 1 




4 


^ 


$i2ce 






Ida 


#2 


;c!ose oad channel 




jmp 


$i271 


;fix cassette close 




jsr 


cose 




♦ 


T 1 


$f38b 






jsr 


ctrchn 






imp 


$f713 


;fix cassette open 


,skip 








• 




$f539 




;autorun routine 






imp 


$1713 


;fix cassette oad 


■ 
* 








« 


^ 


$f65f 






Idy 


#0 






jmp 


$1713 


;fjx cassette save 


auto20 


Ida 


runit,y 


;write "run " + cr 


, skip 2 


^ 1 








sta 


keyd,y 


;to keyboard buffer 


# 


= 


$fcef 






iny 

cpy 

bne 


#4 




;divert systerr 


I reset 






auto20 




, 










sty 
imp 


ndx 


;and set buffer size 


.skip 








aulo30 


dobas 


;then run the program 


.if n eprom < 






-Skip 










stx 


$d016 


;reset vicii chip, 


filnam 


.byt 


^0-^ 






jsr 


$fda3 


;initializeiyo, 


runit 


.byt 


'runMS 






jsr 


$fd50 


;memory pointers. 


,end 










jsr 


S!d15 


;soft i/o vectors, 












jsr 

cli 


$ff5b 


;screen& keyboard 
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SYMASS: 

A Symbolic Assembler 
For The Commodore 64 



Robert Huehn 
Neustadt, Ontario 



Now Assemble Any Transactor Program, Anytime! 



Symbolic assemblers, used to assemble machine language 
programs, are essential tools for serious programmers. The 
merits of m;ichine language need not be discussed here. If you 
haven't broken down and bought one yet, you've probably 
been using a monitor such as Supermon. Monitors were never 
meant for program development- After trying to insert a couple 
of instructions into a long program with a monitor, you must 
alsoreadiusl the rest of your program properly. Then you think 
very hard about alternatives. 

Unfortunately there were very few choices until now. SYMASS 
was written lo fill the gap. It is a very fast, compact, easy to use 
assembler with enough features for serious programs. Besides, 
it's in the |)uhlic domain. After experiencing SYMASS in action, 
you will gladly demote your monitor to debugger. 

You're likely already familiar with SYMASS syntax, since it is 
totally compatible with PAL, PAL source code is published 
often in each issue of The Transactor. SYMASS syntax evolved 
througli many changes from its beginning as a BASIC program 
(which would take over twenty minutes to assemble early 
versions.) It now includes most of PAL's features, including the 
ones most often used in Transactor programs. PAL has no 
problems assembling SYMASS itself, but SYMASS is faster. 
SYMASS source code is about 18 K bytes long and PAL takes 
about 1 7 seconds to assemble it. SYMASS assembles itself in six 
.seconds. 

Type in SYMASS 3.0,GE:N, then run iL {It^s not long, but you 
might consider gelling the Transactor disk for this issue, espe- 
cially if you want the source code.) It will create the final 
program, SYMASS 3,0, on disk. (The generator program could 
also he modified for tape, since SYfVlASS doesn^t use the disk 
drive.) The SYMASS 3.0 loader will relocate il,self at the top of 
memof>' when it is run. Source code is entered with the BASIC 
editor; use 'sys 700' alone on the first line to call SYMASS. 
Leave out the PAL's .opt xx statement since SYMASS assembles 
to memory only. Type 'run' and save the object code with a 
monitor. 



Probably the major limitation of SYMASS is both source and the 
resulting object code must reside in memory along with SY- 
MASS. SYMASS doesn^t take up much room, (about 2.6 K] but 
you will have problems if the source is too long lo fit with the 
object code. 

A partial list of SYMASS/PAL compatible features follows: 



* = $cOOO 


;define start of program 


name = $ff 


;assign a value to a symbol 


* = * + n 


;skip n bytes for storage 


t 


icomments follow 


$ 


;hexadecimal value, defau t is decimal 


% 


;binarvva ue 


t 


;ASCII value of character 


1 


;force absolute addressing 


>high, <low 


;low or high byte of word 


+ .- 


;add. subtract 


.byte $ff 


; St ore bytes 


.word $ffff 


jstore words 


.asc "text" 


;store string of characters 


.end 


;end assembly 



You can use SYMASS without knowing how it works, but the 
explanation will help you gel the most out of it. 

SYMASS itself is composed of srn^jll modules, each performing 
a specific function. In general, each module could be replaced 
by another section of code, if it performs the function correctly. 
This makes it easier to modify small sections without any side 
effects, SYMASS was debugged that way. 

SYMASS makes two passes over the source code. During the 
first pass, SYMASS builds a symbol table of all the symbols 
which appear in the program, it Ihen stores the object code lo 
memory on the second pass, after all unknown symbol values 
have already been defiiied. A variable called FLAG is set to or 
1. depending which pass SYMASS is currently on. 
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The source code has already been lokenized by the BASIC 
editor, but this causes no problems. It even reduces the amount 
of memory needed for the source. Opcodes such as 'and* are 
already stored as tokens internally, as are custom pseudo-ops 
likeVend\ 

WORD lb the most basic routine to find the next word, WORD 
defines a word as a sequence of characters ending with a space, 
colon, semi-colon, or equal sign. It also ignores leading spaces, 
and has a quote mode that accepts any character except the 
end of line, 

A pointer, AD, and the .y register is always used to access the 
source code. When WORD is called, the pointer AD is ad- 
vanced over leading spaces, then the .y register is advanced to 
the end of the word and the result is stored in LEN. Therefore, 
LEN is the length of the word, '{ad),y gives the stop character 
when .y equals LEN, and the lirst character when ,y equals 
zero. Two routines, NEXTWORD and NEWWORD, set up AD 
and call WORD. NEXTWORD starts at the current stop charac- 
ter, so will only gel another word if a space separates them. 
NEWWORD, on the other hand, skips over the stop, and is 
used to get the expression after an equals sign. 

It's important to understand how those routines work if you 
wish to use them in your own additions to SYMASS. 

SYMASS creates a symbol table which starts at the top of 
memory and grows downward to the end of the source code. A 
symbol table overflow results if not enough memory is availa- 
ble. Each entry lakes ten bytes; eight to store the name, and 
another two for the value. If tokens are embedded in the name, 
its actual length could be longer than eight characters, but it's 
not a good idea. 

CRSYM creates a symbol table entry. It decides if there is 
enough room, then copies the current word into the table. It is 
your responsibility to make sure a symbol isn't defined twice. 
Whenever the value of a symbol is needed, FINDSYM is called, 
FINDSYM returns with the value in the .a and .x registers, or 
prints an 'undefined symbol' message, 

FINDSYIvf uses the simplest possible search method, searching 
from beginning to end. It might be worthwhile to use a different 
method, such as a hash function, to save time. (Calculate the 
storage address with a special function, such as the remainder 
of table size / ASCII sum of name.) 

The opcode table makes up 728 bytes of SYMASS, Again, 
FINDOP does a linear search. The more commonly used 
opcodes are close to the beginning. You could fine-tune the 
table to your style by counting the number of times each 
opcode appears in your programs, then rearranging the table in 
that order. If you do so, change the brk op** and bit op* in 
DOOP and PUTOP to their new positions. You could also easily 
add extra opcodes such as skb {skip byte) to the table, changing 
NOPS to reflect the change 



Two other major routines are EVAL and PUTOP. 

EVAL takes the current word, an expression containing no 
spaces, evaluates it, and returns the result. It can add or 
subtract symbols, decimal, and hexadecimal numbers. A char- 
acter enclosed in single quotes will return its ASCII value. A > 
or< can be placed at the beginning of the expression to return 
either the high or low byte of the result. The number conver- 
sion routines only convert from BASIC'S format as a string of 
characters to a useful two-byte binary number, not both ways. 
This is why SYMASS gives the end of assembly as a decimal 
number instead of hex. The BASIC ROM routine that prints "in 
XX XXX ' is used. 

During the first pass DOOP keep track of the current object 
address with a pointer called PTR. PUTOP is used on the 
second pass to store the machine code into memory. It recog- 
nizes all addressing modes. Since there is no difference in 
syntax between zero and absolute modes, the correct mode 
may sometimes be ambiguous. 

Suppose you are storing variables in memory after the end of 
your program, with a label to identify the location. On the first 
pass, an instruction such as 'Ida variable' would normally cause 
FINDSYM to give an undefined symbol error. FINDSYM there- 
fore tries to guess your meaning by returning the value of PTR 
for undefined symbols on the first pass. Other assemblers may 
use zero, and cause an instruction like 'Ida variable+T to 
produce a phase error. A phase error results when the assem- 
bler makes the wrong guess, and reserves an incorrect number 
of bytes for an instruction. 

SYMASS doesn't have phase errors. You can force SYMASS to 
use absolute mode with a ! prefix, or to zero page by a <, which 
works by returning the low byte. 

You can add your own specialized commands to SYMASS by 
adding them to the CUSTOP routine. One such command, 
'.pad' will add a zero to the object code if the current address is 
odd. You might use it sometime to make sure a jump table 
doesn't cross a page boundary. 

SYMASS leaves room lor optimization; the major goals in its 
design weresimplicity.speedandeaseof use. WORD, since it is 
used so often, is a good candidate. PAL doesn't seem to 
recognize ' = ' as the end of a word. If the relevant parts of 
SYMASS were changed, the check could be taken out of 
WORD. A useful, but probably more complicated improvement 
is assembly to disk. 

SYMASS's hidden strength is the ease with which it can be 
modified, compared to commercial programs which do not 
provide source code. You can also study SYMASS just to learn 
how to write an assembler. In the end though, SYMASS is a tool 
which will enable you to write machine language programs as 
complex as your growing skills allow. 
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<mt 


^ 


pnnrmij 




]»m. 








8890 


1*1 


puli?ulijp 


9890 


i^' 


inline 




10890 pad 


a 


,padob|rcrwiihalliral 




89011 


|sr 


ev^l 


9900 


imp 


li^Ljne 




10900 ,odd bvif 10 hnpimp tables ule 




8910 


<» 


puloji 


99IU. 








10910 


kb 


P" 




8920 


lid 




992«fp 


Ida 


N 




10920 


and 


■1 




8930 


&r 


PUIDUI 


<mt 


bfir 


q>fi 




10930 


bft[ 


l« 




8940 


inip 


iieiL? 


9940 


imp 


jwj:[ 




10910 


\6i 


lldg 




89511 IP 1 


im 


ad 


9950 [p6 


imp 


nexJ2 




10950 


beq 


p.1 




fm 


bne 


ip2 


9950, 








L0960 


Ida 


'II 




8970 


IIK 


#J'L 


99T<»bv1e 


^ 


i 


^byle^nd \iotd 


10970 


P' 


pulcW 




8980 IP? 


dK 


Im 


^k930. 








10980 pa 


imp 


fp 




3990 


dec 


len 


9990 


Ida 


1) 




10990 pal 


MIC 


P"" 




9000 


Idy 


•1 


10000 


iia 


IS 




HOW 


bne 


pa 




9010 


kU 


{ilWly 


lOIHO 


ft' 


neKtwDrd 




11010 


IIK 


plr-»l 




9020 


I4r 


pUlMllOp 


10020 


fly 


Q 




11020 


bne 


pa 





TIM nonftoclof 



71 



JiMV 1VM: Volum* T, IMU* 01 



SYMA5S Loader 


PN 


1570 data 124.255, 2. 160, 124,255, 1. 32 




GF 


1580 data 150, 249. 0,165. 89.133. 57,165 


Generares diskfile " svmass 3. 1 " which you Ihen load and run. Don't 


FH 


1590dala 90,133. 58, 32,194,189. 76,116 


foFRel to save this program first. 


LF 


1600 data 164, 32. 95,246, 0. 32,131,249 


^ 1 sx 


AE 


leiOdala 0, 32. 83,247, 0,160, 0, 








HA 
HL 


1620data145. 82,200,138,145, 82, 76,172 
1630data245. 0, 32,131.249, 0, 32. 83 




PF 


100open1,e,1."0:symass3.1 " 




NM 


110print#1,chr$(1)chr$(e); 


IK 


1640 data 247. 0, 160, 0, 0, 145, 82,200 




PO 


120fora = 20491o5253;readd:C = c + cJ 


JK 


1650 data 136. 145, 82, 76,172,245. 0.165 




BL 


130 prJnl#1 .chr$(d);:next 


HM 


1660data 87, 56,233. 10,133, 87,176. 2 




PF 


140 close 1 


PM 


1670dala 2,198. 88,197, 45,165, 88,229 




Nl 


1 50 ifc<>4007921hen print " data error " 


BM 


lOeOdala 46,176. 13,162,143,255, 2,160 




AK 


160 end 


KJ 


1 690 data 1 43, 255, 1 , 32, 1 50, 249, 0, 32 




MM 


lOOOdata 11, 8, 10, 0.158, 50, 48, 54 


CP 


1700datal94, 189, 76, 71,249. 0, 24,165 




HO 


lOIOdata 49. 0, 0, 0,165. 55,133, 40 


HA 


1710dala 87.105, 8.133. 82.165, 88,105 




OC 


1020data165, 56.133, 41,165. 45,133, 38 


EK 


1720data 0. 0.133. 83.160, 8,169, 




OC 


1030dala165, 46.133, 39,160, 0,165. 38 


PM 


1730data 0,136,145. 87.208,251,164, 93 




; KC 


1040dala208, 2.198, 39,198. 38,177. 38 


HB 


1740 data 136, 177, 122. 145, 87, 152, 208, 248 




i ND 


1050dala201. 3.176, 79, 72,165, 38.208 


ED 


1750 data 96,160, 0. 0,177,122,201, 74 




MD 


lOeOdala 2,198. 39,198. 38,177, 38.201 


CA 


1760 data 240, 19.201, 66,208. 22,224. 33 




KB 


1070'data 3,144. 50,170.165, 38,208. 2 


AA 


1770data240, 18,224, 32,240. 14, 32,135 




IL 


1080dala198, 39.198, 38.177, 38, 24,101 


DA 


1780data249, 0.169, 2, 2.208, 83, 32 




: LK 


1090data 55,133. 42,138.101, 56,170,104 


FD 


1790datal35,249. 0,169. 3.208, 76, 32 




;gf 


1100dala208, 16,165, 40.208, 2.198, 41 


HB 


1800 data 135. 249, 0, 208. 4, 169, 1. 1 




MJ 


1110dala198, 40,138,145, 40,165. 42, 24 


LB 


1810 data 208. 67, 160, 0, 0, 177. 122.201 




Nl 


1 1120data 144. 10,201. 1.208, 4,138, 24 


OC 


1620data 35.240,228,201, 40,240,224.164 




HG 


1130data144. 2,165. 42, 72,165. 40.208 


PK 


1830data 93.136,240, 43.136,240, 40.177 




JE 


1140data 2,198, 41.198, 40,104,145, 40 


FD 


1B40data122.201, 44,208. 34,200,177,122 




NN 


11 50 data 24. 144, 163.201, 127.208, 237, 169 


HJ 


1850 data 1 60. 7, 201 , 88, 240, 1 , 1 . 200 




LP 


1160data 76.141,188. 2,165. 40,141,189 


HN 


1860data177. 91,201,250.240, 23,164. 93 




DK 


1170data 2.133. 55.165, 41.141,190. 2 


GD 


1870data136. 136, 132. 93. 32, 83,247, 




MC 


11S0data133. 56, 32. 99.166,169,255.133 


MN 


1880 data 230. 93,230. 93,224, 0, 0. 76 




AP 


1190data 58, 76,188, 2.127,169, 0. 


BB 


1890 data 10.247, 0. 32, 83,247, 0,240 


1 


ff 


1200 data 133. 2. 2, 162, 58, 255, 2. 160 


Ol 


1900 data 171, 169, 3. 24, 101, 89, 133, 89 




PA 


1210data 58,255, 1, 32.150,249, 0,166 


KJ 


1910 data 144, 2. 2. 230, 90, 76, 172, 245 




DD 


1220data 56,232.208, 3. 76,116,164,162 


PG 


1920 data 0, 32,135.249, 0, 32.131,249 




Fl 


1230data 94,255, 2,160, 94,255. 1, 32 


IP 


1930 data 0, 32. 83,247, 0.133, 89,134 




DA 


1240 data 150, 249, 0,165, 55,133. 87,165 


JA 


1940data 90, 96.200,177,122,133, 38,169 




DA 


1250data 56,133, 88,230,122,208, 2, 2 


MK 


1950 data 0, 0. 133, 39.200,200, 76, 160 




GC 


1260data230, 123, 165. 122, 133, 80, 133, 78 


PJ 


1960 data 247. 0,200, 196. 93,240, 10. 177 




LE 


1270 data 165, 123, 133, 81,133, 79. 32, 88 


OJ 


1970dala122.201, 170.240, 4,201. 171.208 




PJ 


1280 data 249. 0, 208. 3. 76, 201. 245, 


AO 


1980 data 241. 132, 38. 32,250,248, 0,164 




JB 


1290data 32, 38,251. 0,208. 7,201,178 


IC 


1990dala 38,133, 38,134, 39, 76.160.247 




KM 


1300 data 208, 59, 76, 78,246, 0,162. 


AL 


2000data 0,169, 0. 0,133, 40.133, 41 




CL 


1310 data 0. 161, 122,201, 172.208, 6, 32 


HP 


2010data133, 42,133. 95,160, 0. 0,177 




Ol 


1320data 26.247, 0. 76,172.245, 0.177 


JD 


2020 data 122, 201, 36,208, 3. 76, 8,248 




BF 


1 330 data 1 22. 201 , 1 78, 208. 3. 76, 58. 246 


FB 


2030 data 0, 201, 34,240, 188,201, 172,240 




NE 


1340 data 0. 32.201,248. 0,144, 3. 76 


MC 


2040 data 39,201,177,240, 23,201.179,240 




HD 


1350data 160. 246. 0, 160. 0, 0, 177, 122 


MD 


2050 data 19,201, 37,208, 3, 76.161,248 




PC 


1360 data 201, 46,208, 3. 76, 97,251, 


MN 


2060data 0, 56,233, 48,144,178.201, 10 




NH 


1370dala 32, 95,246, 0.160, 0, 0,165 


FF 


2070 data 176, 174, 76, 91,248, 0.133, 95 




JK 


1380dala 89,145, 82,200.165, 90,145, 82 


KC 


2080data230, 122,208, 2, 2.230. 123, 198 




KK 


1390 data 164, 93, 177, 122,201, 32.240, 7 


OB 


2090dala 93,208,198,200,165, 89.133, 38 




HF 


1400data201, 58,240, 3, 76. 96,245, 


GG 


2100data165, 90.133, 39,165, 42,208, 11 




EG 


1410 data 200. 152, 24, 101, 122, 133, 122, 144 


DM 


2110data165, 38,133, 40,165, 39,133, 41 




JC 


1420 data 2. 2.230, 123, 76. 104, 245, 


JG 


2120 data 76.210,247, 0, 201, 170, 208, 16 




JJ 


1430 data 230. 2. 2, 162, 109,255, 2. 160 


BH 


2130data 24.165, 38,101, 40.133, 40.165 




CH 


1440 data 109, 255. 1, 32. 150,249, 0, 165 


NJ 


2140data 39.101, 41,144, 18, 76, 78.248 




GL 


1450data 80,133, 78,165, 81,133. 79, 32 


AJ 


2150 data 0. 56, 165, 40.229, 38, 133, 40 




DJ 


1460 data 88,249, 0,208, 3, 76, 37,246 


BA 


2160data165. 41,229, 39.133, 41.144.124 


i 


DA 


1470dala 0. 32, 38,251, 0,240, 33,162 


EB 


2170data196. 93,240, 27.177,122.133, 42 




PM 


1480 data 0. 0, 161. 122.201. 172,208, 6 


GG 


2180data200, 152, 24, 101, 122, 133. 122, 144 




LN 


1490 data 32. 26.247. 0, 76. 8,246, 


DM 


2190 data 2, 2,230,123, 56,165, 93,132 




Al 


1500dala 32,201.248. 0,144. 3, 76. 37 


CP 


2200 data 93,229, 93.133, 93, 76, 93,247 




HL 


1510 data 250, 0, 160. 0, 0, 177, 122.201 


CM 


2210 data 0,165, 95.208, 5,165, 40,166 




GN 


1520dala 46,208, 3, 76, 97,251, 0,164 


KJ 


2220data 41, 96,201,177,208. 5,165, 41 




OB 


1530dala 93,177.122,201. 32,240, 7,201 


HO 


2230 data 162, 0. 0, 96,165. 40,162, 




ED 


1540data 58,240. 3, 76.218,245, 0,200 


AL 


2240 data 0, 96, 200, 169, 0, 0, 133, 38 




CK 


1550data 152, 24, 101, 122. 133, 122. 144, 2 


D 


2250 data 133, 39,177,122, 56,233, 48.144 




NM 


1560 data 2,230, 123, 76.226, 245. 0, 162 


AM 


2260 data 53, 201, 10, 144, 10,233, 17, 144 










r 


fTwlta 


raactor 74 




Ju»r19a6:U)lum»Aluue01 [ 





DG 


2270dala 45,201, 6.176. 41.105, 10, 6 


LJ 


2970data 32, 10,251, 0, 32, 83,247, 




MD 


2280data 38, 38, 39,176, 36, 6, 38, 38 


IN 


2980 data 32, 27,251, 0,230, 93,230, 93 




DN 


2290data 39.176, 30, 6. 38, 38, 39,176 


ON 


2990 data 230, 93, 76. 8,246, 0,160, 




CL 


2300 data 24, 6, 38, 38, 39,176, 18,101 


JL 


3000 data 0, 177, 122. 201. 74, 206, 3. 76 




FK 


2310 data 38,133, 38,165, 39,105, 0, 


BK 


3010 data 203, 250, 0. 201. 66, 208, 1 1 , 224 




LG 


2320 data 1 33. 39, 1 76, 6, 200, 208, 1 96, 76 


HF 


3020 data 33,240, 7,224, 32,240, 3, 76 




KC 


2330data 160, 247, 0, 162, 166, 255, 2, 160 


PL 


3030 data 167, 249, 0, 32, 135,249, 0, 208 




PC 


2340 data 166. 255, 1, 32,150,249. 0. 32 


DA 


3040data 10,160, 9,177, 91, 32, 10,251 




OJ 


2350 data 194, 189, 76, 71, 249, 0, 169, 


FH 


3050 data 0, 76, 8, 246, 0, 160, 0. 




NB 


2360 data 0.133, 38.133, 39,177,122, 56 


ND 


3060 data 177, 122,201, 35, 208, 3. 76, 226 




GG 


2370 data 233. 48, 144, 54, 201, 10, 176, 50 


IP 


3070 data 249. 0.201, 40, 208, 3. 76, 250 




KC 


2380data 72,165, 38,166, 39, 6. 38, 38 


MN 


3080 data 249, 0,201, 33, 208, 9.230, 122 




KP 


2390data 39,176,215, 6, 38, 38, 39,176 


ME 


3090 data 208. 2. 2,230,123,198, 93, 44 




HO 


2400 data 209. 101, 38,133, 38.138,101, 39 


DM 


3100 data 169, 0, 0, 133, 96. 162, 3, 164 




JC 


2410 data 133, 39,176.198, 6. 38. 38, 39 


NK 


3110data 93.136,240, 20,136,240. 17,177 




FM 


2420data176, 192, 104. 101. 38,133. 38,165 


GJ 


3120 data 122, 201, 44,208, 11,132, 93,232 




ON 


2430data 39,105, 0, 0,133, 39,176,179 


KC 


3130 data 200, 177. 122, 201, 88, 240, 1. 1 




DO 


2440 data 200, 208, 195, 76. 160,247, 0, 200 


AD 


3140data232, 134, 94, 32, 83,247, 0,240 




DO 


2450dala169, 0, 0,133, 38,133, 39.177 


EG 


3l50data 19,164, 94,177, 91, 32, 10,251 




G 


2460data122, 56,233, 48,144, 23,201, 2 


EN 


3160data 0.165, 40. 32. 27,251, 0,138 




FP 


2470dala 2,176, 19, 6, 38, 38, 39.176 


HC 


3170data 32, 27,251, 0, 76,189,250. 




PE 


2480data 149, 101. 38, 133. 38, 165, 39, 105 


AM 


3180 data 165, 96,208, 233, 164, 94, 200.200 




JA 


2490 data 0, 0, 133, 39, 200, 208, 226, 76 


MJ 


3190 data 200, 177, 91, 201, 250,240.222, 32 




HL 


2500 data 160, 247, 0, 169, 93, 252, 2, 133 


BJ 


3200data 10,251, 0,165, 40, 32, 27,251 




NA 


2510data 91,169, 98,252, 1,133, 92,162 


DE 


3210data 0, 164, 94, 136, 136. 136, 240, 4 




KL 


2520data 0, 0. 160, 0, 0, 177, 91.240 


CG 


3220 data 230, 93,230, 93, 76, 8.246, 




JJ 


2530 data 9, 209, 122,208, 11, 200, 192, 3 


HD 


3230 data 32,135,249, 0,160, 0, 0,177 




CG 


2540 data 144. 243, 196, 93,208, 2. 2. 56 


U 


3240 data 122, 201, 40, 240, 20, 160, 3, 177 




GO 


2550dala 96.232,165. 91, 24,105, 13.133 


LB 


3250data 91, 32, 10,251. 0. 32, 83,247 




JJ 


2560 data 91.144, 2, 2,230, 92,224, 55 


AL 


3260data 0, 32, 27,251, 0,138, 32, 27 




JD 


2570 data 208, 219, 24, 96,165, 55,133, 82 


DF 


3270 data 251 , 0, 76, 8, 246, 0, 230, 1 22 


i 


EG 


2580 data 165. 56.133. 83,165. 82, 56,233 


DP 


3280 data 208, 2, 2.230, 123, 198, 93, 198 




GK 


2590 data 10.133. 82,176, 2, 2,198, 83 


MB 


3290 data 93,160, 4,177. 91, 32. 10,251 




DK 


2600 data 197, 87,165, 83.229, 88,176, 22 


CP 


3300 data 0, 32, 83,247, 0, 32, 27.251 




FL 


2610dala165, 2, 2,208, 5,165, 89,166 


PD 


33l0data 0,138, 32, 27,251, 0,230, 93 




MH 


2620data 90, 96,162,184,255, 2,160,184 


BE 


3320 data 76, 8.246, 0,201,250,208, 13 




' HE 


2630 data 255, 1, 32,150,249, 0, 32,194 


LP 


3330 data 162, 223, 255, 2, 160. 223, 255, 1 




EJ 


2640data189, 76, 71,249, 0,160, 0, 


KF 


3340 data 32,150,249, 0, 32,194,189, 76 




GP 


2650 data 177, 82,240, 9,209, 122.208,205 


CF 


3350 data 71,249, 0,160, 0, 0,145, 89 




NO 


2660 data 200. 192, 8, 144, 243, 196. 38,208 


EO 


3360 data 230, 89,208, 2. 2.230, 90, 96 




KA 


2670 data 196, 160, 9. 177, 82, 170, 136, 177 


DD 


3370 data 162, 0, 0, 160. 0, 0, 177, 122 




JJ 


26S0data 82, 96.165, 57,133, 20.165, 56 


FK 


3380 data 240, 46,201, 34,240, 35,224,128 




LI 


2690 data 133, 21, 32, 19, 166, 32, 201, 166 


DF 


3390 data 240. 16,201. 58,240, 34,201. 59 




FP 


2700data 76,116,164,165, 78,133,122,165 


GM 


3400data240, 30, 201, 178, 240, 26, 201, 32 




DM 


2710 data 79, 133, 123, 160, 0, 0, 177, 122 


BD 


3410 data 240, 3,200, 208, 225, 192, 0, 




CA 


2720 data 133, 78, 200, 177, 122. 133, 79, 240 


MF 


3420 data 208, 15,230, 122, 208, 217,230, 123 




JN 


2730data 21,200,177,122,133, 57,200,177 


BB 


3430 data 208, 213, 138, 73, 128. 170, 76, 70 




PL 


2740 data 122, 133, 58, 24,165,122,105, 4 


IH 


3440data251, 0,132, 93,192. 0, 0, 96 




FK 


2750 data 133, 122, 144, 2, 2, 230, 123, 96 


CM 


3450data200, 177, 122,201, 66.208, 3, 76 




FO 


2760 data 164, 93,200, 44,164, 93,152, 24 


HK 


3460 data 158, 251, 0.201, 67,208, 3, 76 




JL 


2770 data 101, 122, 133, 122, 144, 2, 2,230 


MH 


3470 data 160. 251, 0,201, 198, 208, 3, 76 




JO 


2780data123, 76, 38.251. 0.134. 38 132 


NO 


3480 data 3.252, 0.201, 128, 208. 3, 76 




CD 


2790data 39,160, 0, 0,177, 38,240, 6 


HC 


3490 data 41,252, 0,201, 80,208. 3, 76 




00 


2800 data 32,210,255,200,208,246, 96,160 


IJ 


3500 data 72, 252, 0, 162, 237,255, 2, 160 




GA 


28l0data 3.177, 91, 32, 10.251, 0, 32 


JL 


3510data237, 255, 1, 32,150,249, 0, 32 




Jl 


2820 data 135. 249, 0, 32, 83.247, 0, 56 


CD 


3520 data 194, 189, 76, 71, 249, 0, 165, 2 




NO 


2830 data 233, 1 , 1 . 1 76. 1 , 1 , 202, 56 


EC 


3530 data 2, 208, 3, 76, 172.245, 0, 76 




OM 


2840 data 229, 89, 133, 38. 138,229, 90, 170 


HN 


3540 data 8, 246, 0. 169. 0. 0, 133, 96 




IE 


2850data 24,165, 38,105,128.138,105, 


CD 


3550 data 32.135,249. 0.132, 94,160, 




MM 


2860 data 0, 240, 13, 162, 202,255, 2, 160 


Gl 


3560 data 0, 177, 122.201, 44, 240. 5.200 




IC 


2870 data 202, 255, 1, 32,150,249, 0, 32 


EE 


3570 data 196, 94, 208, 245, 165, 2, 2.240 




FJ 


2880 data 194, 189, 76, 71, 249, 0, 165. 38 


FB 


3580data 51,132. 93,200,165, 94,132, 94 




GE 


2890 data 32, 27,251, 0, 76, 8,246, 


LE 


3590data 56,229, 94,133, 94.176, 4,169 




KE 


2900data230, 122, 208, 2, 2, 230, 123, 160 


LO 


3600 data 0, 0,133, 94, 32, 83,247, 




Ml 


2910data 10,177, 91, 32, 10,251. 0,198 


JM 


3610 data 32, 27,251, 0.165, 96,240, 4 




lO 


2920 data 93, 32, 83.247, 0, 32. 27.251 


PC 


3620 data 138, 32, 27,251, 0.165, 94,240 




IP 


2930 data 0. 76, 8,246, 0, 230, 122,208 


BJ 


3630data 36,164, 93,200,152, 24,101,122 




KK 


2940 data 2, 2,230.123.165, 93, 56,233 


OF 


3640 data 133, 122, 144, 192,230, 123, 208, 188 




LG 


2950 data 4. 168. 132. 93. 177. 122. 160, 11 


FH 


3650 data 24,165. 96,240, 2, 2,169, 1 




DM 


2960 data 201. 44,240, 1, 1,200.177, 91 


ND 


3660data 1, 105, 1, 1, 101, 89. 133, 89 




The TpcinMictor 75 
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FK 
NM 
IJ 
NK 
KK 
PO 
FO 
EA 
Nl 
Ml 
EL 
KG 
MP 
lO 
BA 
GL 
BH 
JL 
KD 
OJ 
FO 
CG 
CN 
OE 
OJ 
KB 
KL 
GN 
KD 
ON 
DO 
KM 
GD 
MM 
PJ 
LB 
MP 
PF 
ND 
EP 
DJ 
NC 
PD 
CM 
KP 
DL 
IG 
BD 
OH 
CN 
MM 
DH 
(F 
AM 
BK 
PP 
AP 
MJ 
JD 
KN 
KO 
DM 
NL 
DJ 
CA 
BG 
HE 
AH 
CE 
LA 



3670 data 144, 2, 2,230, 90,196, 94,208 
3680daTa175, 76.148,251, 0, 32,135,249 
3690data 0,160. 1, 1,177,122,201, 34 



3700 data 240, 
3710 data 94, 
3720 data 196, 
3730 data 230. 
3740 data 165, 



3750 data 0, 

3760 data 2, 160. 124, 255, 

3770dala 0, 165, 89, 133, 

3780 data 58, 32, 194, 189. 



16, 166, 2. 2,240, 15, 132 
32, 27, 251, 0, 164, 94,200 
93,208,234, 76, 148,251. 
89, 208, 244, 230, 90, 208, 240 
2, 2,208, 3, 76.201,245 

0, 162, 124, 255 

1. 32, 150, 249 
57, 165, 90, 133 
76, 174, 167, 165 



32, 135, 249 



3790data 89, 41, 1, 1,240, 9,165, 2 



0, 



0, 32, 27 



3800 data 2, 240, 8. 169, 
3S10data251, 0, 76,148,251, 0,230, 89 
3820 data 208, 249, 230, 90, 208, 245, 76, 68 
3830 data 65, 173, 189, 185, 165, 181, 250, 250 
3840dala169, 161, 177, 83, 84, 65,141,157 
3850 data 153. 133, 149,250,250, 250, 129, 145 
3860 data 66, 78, 69,208,250,250,250,250 
3870 data 250, 250, 250,250, 250, 66, 69, 81 
3880^data 240, 250, 250, 250, 250, 250, 250, 250 
3890 data 250, 250, 67, 77, 80,205.221,217 
3900 data 197, 213,250. 250, 201, 193, 209, 74 
3910 data 83, 82. 32,250,250,250,250,250 
3920 data 250, 250, 250, 250, 76, 68, 88, 174 
3930 data 250, 190, 166, 250, 182, 250, 162.250 
3940 data 250, 62, 84, 83,250,250,250,250 
3950 data 250, 250, 96.250,250,250, 76, 68 
3960 data 89, 172, 188, 250, 164, 180, 250, 250 
3970 data 160, 250,250, 66, 77, 73, 48,250 
3980 data 250, 250, 250, 250. 250, 250, 250, 250 
3990data 68, 69, 67,206,222,250,198,214 

4000 data 250, 250, 250, 250. 250, 1 75, 0. 
4010data 0. 0, 45, 61, 57, 37, 53,250 
4020 data 250, 41. 33, 49, 66, 67. 83,176 
4030 data 250, 250, 250, 250, 250, 250, 250, 250 
4040 data 250, 73. 78, 67,238,254,250,230 
4050 data 246, 250, 250, 250, 250, 250, 66, 67 
4060 data 67, 144, 250, 250.250, 250, 250.250 
4070data250, 250, 250, 84, 89, 65,250,250 
4080 data 250, 250,250.250, 152, 250,250, 250 
4090 data 66. 60, 76. 16,250,250,250,250 
4100data250, 250.250, 230, 250, 65, 63, 76 
4110data 14, 30,250, 6, 22.250, 10,250 
4120data250, 250, 67, 76, 67,250,250,250 
4130 data 250, 250, 250, 24,250,250,250, 65 
4140data 68, 67,109,125,121,101,117.250 
41 50 data 250, 105, 97.113, 69,176, 0, 
4160 data 77. 93, 89, 69, 85,250,250, 73 
41 70 data 65, 81, 84, 88, 65.250,250,250 
4180 data 250, 250,250, 138,250,250, 250, 67 
4190 data 80, 88,236,250,250,228,250,250 
4200data250, 224, 250, 250, 74, 77, 80, 76 
4210 data 108, 250, 250,250.250, 250, 250, 250 
4220 data 250, 84, 65, 88,250,250,250,250 
4230 data 250, 250, 1 70, 250, 250, 250, 73, 78 
4240 data 89, 250, 250, 250, 250, 250, 250, 200 
4250data250, 250, 250, 83, 84, 89,140,250 
4260 data 250, 132, 148,250,250, 250, 250,250 
4270data176. 65, 0, 0, 13, 29, 25, 5 
4280 data 21,250,250, 9, 1, 1, 17, 68 
4290 data 69, 89,250,250,250,250,250,250 
4300data136, 250,250, 250, 68, 69, 88,250 
4310 data 250, 250, 250, 250,250, 202, 250, 250 
4320data250, S3, 84, 88,142,250,250,134 
4330 data 250, 150, 250, 250. 250, 250, 83, 66 
4340 data 67, 237, 253, 249, 229, 245, 250, 250 
4350 data 233, 225,241, 66, 73, 84, 44,250 
4360 data 250, 36, 250, 250, 250, 250, 250, 250 



KH 


4370 data 


66, 82, 


75, 


250, 


250, 


250, ; 


250, 250 


KG 


4380 data 250, 0, 


0, 


250, 


250, 


250, 


66, 86 


OP 


4390 data 


67, 80, 


250, 


250, 


250, 


250.. 


250, 250 


AN 


4400 data 250, 250, 


250, 


66. 


86, 


83. 


112,250 


IH 


4410 data 250, 250, 


250, 


250, 


250, 


250, 


250, 250 


PL 


4420 data 


67, 76, 


68, 


250, 


250, 


250, 


250, 250 


LA 


4430 data 250, 216, 


250, 


250, 


250, 


67, 


76, 73 


Bl 


4440 data 250. 250, 


250, 


250, 


250. 


250, 


88. 250 


NP 


4450 data 250, 250, 


67, 


76, 


86, 


250, 


250, 250 


LJ 


4460 data 250, 250, 


250, 


164, 


250, 


250, 


250, 67 


OG 


4470 data 


80, 89, 


204, 


250, 


250, 


196, 


250, 250 


JE 


4480 data 250, 192, 


250, 


250, 


73, 


78, 


88, 250 


CM 


4490 data 250, 250, 


250, 


250, 


250, 


232, 


250. 250 


OA 


4500 data 250, 76, 


83, 


82, 


78, 


94, 


250, 70 


NM 


4510 data 


86, 250, 


74, 


250, 


250, 


250, 


78, 79 


JK 


4520 data 


80, 250. 


250, 


250, 


250, 


250, 


250, 234 


ID 


4530 data 250, 250, 


250, 


80, 


72, 


65, 


250, 250 


EM 


4540 data 250, 250, 


250, 


250, 


72, 


250, 


250, 250 


BE 


4550 data 


80, 72, 


80, 


250. 


250. 


250, 


250, 250 


AL 


4560 data 250, 8, 


250, 


250, 


250, 


80, 


76, 65 


FA 


4570 data 250, 250, 


250. 


250, 


250, 


250, 


104, 250 


NF 


4580 data 250, 250, 


80, 


76, 


80, 


250, 


250, 250 


EC 


4590 data 250, 250, 


250, 


40, 


250, 


250, 


250. 82 


CH 


4600 data 


79, 76, 


46, 


62, 


250, 


38, 


54, 250 


EC 


4610 data 


42.250, 


250, 


250, 


82, 


176, 


0, 


NP 


4620 data 110, 126, 


250, 


102, 


118. 


250. 


106, 250 


IJ 


4630 data 250, 250, 


82, 


84, 


73. 


250, 


250, 250 


AH 


4640 data 250, 250, 


250, 


64. 


250, 


250, 


250, 83 


LB 


4650 data 


69, 67, 


250, 


250, 


250, 


250, 


250, 250 


BJ 


4660 data 


56, 250, 


250, 


250, 


83, 


69, 


68, 250 


Al 


4670 data 250, 250. 


250, 


250, 


250, 


248, 


250, 250 


IM 


4680 data 250, 83, 


69, 


73, 


250, 


250, 


250, 250 


EK 


4690 data 250, 250, 


120, 


250, 


250, 


250, 


84. 65 


IJ 


4700 data 


89, 250, 


250, 


250, 


250, 


250, 


250, 168 


JA 


4710 data 250. 250, 


250, 


84, 


83, 


88, 


250, 250 


NL 


4720 data 250. 250, 


250, 


250, 


186, 


250, 


250, 250 


PO 


4730 data 


84, 68, 


83, 


250, 


250, 


250, 


250, 250 


HE 


4740 data 250, 154. 


250, 


250, 


250, 


18, 


83, 89 


AP 


4750 data 


77, 65, 


83, 


83, 


32, 


51, 


46. 49 


AC 


4760 data 


48, 32, 


82, 


79, 


66, 


69, 


82, 84 


OP 


4770 data 


32, 72, 


85, 


69, 


72, 


78, 


32, 70 


JB 


4780 data 


69, 66, 


32, 


49, 


57, 


56, 


54, 13 


EP 


4790 data 


0, 0, 


13, 


70. 


73, 


82, 


83, 84 


GB 


4800 data 


32, 80, 


65, 


83, 


83, 


46, 


46, 46 


JF 


4810 data 


0, 0. 


83, 


69, 


67, 


79, 


78, 68 


KC 


4820 data 


32, SO, 


65, 


83, 


83, 


46, 


46, 46 


EE 


4830 data 


0, 0, 


13, 


65, 


83, 


83, 


69. 77 


El 


4840 data 


66, 76, 


89, 


32, 


67, 


79, 


77. 80 


BF 


4850 data 


76. 69, 


84, 


69, 


0. 


0, 


13, 83 


GJ 


4860 data 


89, 77, 


66, 


79, 


76. 


32. 


84, 65 


JK 


4870 data 


66, 76, 


69, 


32. 


79. 


86, 


69, 82 


NF 


4880 data 


70, 76, 


79, 


87, 


0, 


0, 


13, 73 


IK 


4890 data 


76, 76, 


69, 


71. 


65, 


76, 


32, 81 


LG 


4900 data 


85, 65, 


78, 


84, 


73, 


84, 


89, 


CH 


4910 data 


0, 13, 


85. 


78, 


68, 


69, 


70, 73 


N 


4920 data 


78, 69. 


68, 


32, 


83, 


89, 


77. 66 


NK 


4930 data 


79, 76, 


0, 


0, 


13, 


66, 


82, 65 


PM 


4940 data 


78, 67, 


72, 


32, 


79, 


, 85, 


84, 32 


KN 


4950 data 


79, 70, 


32, 


82, 


. 65. 


, 78, 


71, 69 


EL 


4960 data 


0, 0, 


13, 


73, 


76 


, 76, 


69, 71 


NL 


4970 data 


65, 76, 


32, 


. 77, 


, 79 


, 68, 


69, 


MK 


4980 data 


0, 13, 


. 73, 


. 76. 


, 76 


, 69, 


71, 65 


AB 


4990 data 


76, 32. 


. 80, 


, 83 


, 69 


. 85, 


, 68, 79 


, LF 


5000 data 


45, 79, 


, 80. 


, 
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News BRK 



Submitting NEWS BRK Press Releases 

If you have a prp^s release which you would like to iubmil (or (he NEWS BRK 
column, make sjre Thai the computer or device for which the produci is 
inlended is prominently noted. We receive hundreds of press releases for each 
issue, and ones whose intended readership is no! clear must unfortunarely go 
straight to the trash bin. If should also be mentioned here that w<? only print 
product releases which are m some way Applicable lo Commodore equipment. 

Transactor News 

Transactor on Microfiche 

We now have 18 Transactor Magazines on microfiche' - all of Volume A. 
Volume 5. and Volume 6. According to Computrex, our (Jche manufaclurer, the 
strips are the "popular 98 page stzc ', so they should be compatible with every 
fiche reader 

To keep things simple, we're making the price of the fiche the same as 
magazines, with one exception. A single back issue will be SA.SQ (remember, 
you can now get those 5 Transactors that are no longer available on paper!], 
and subscriptions will also be the same price as shown on the order card The 
exception? A complete set of 18 (Volumes 4. 5, and 6} will cost jusi 139.95! 



■ The TransBASIC Disk S9.95 

This is the complete collection of every TransBASIC module ever published. 
There are over 120 commands a! your disposal. You pick the ones you want to 
use, and in any combination' It's so simple That a summary of instructions fits 
right on the disk label The manual describes each of the commands, plus how 
to make your own commands, 

■ Jim Butterlietds 1986 Diar^' J5 95 (plus 50^ p&h) 

Jim has put tt^ther a handy pocket reference that includes the most-used 
areas of memory maps, command summaries, equipment summaries, some 
short programs, sound and video, machine language, and a glossaiy, followed 
by a pocket diary and a neat colour map of the London England Underground, 
in case you're going there. 

■ The SM Compiler $39,95 US, $49.95 Cdn 

Thiscompiler is lor BASIC 7.0 on the Commodore 128. We've compared if with 
two others, and this is the one we like Watch lor that comparison in an 
upcoming issue, 

■ Super Kit 1 54 1 S29.95 U5, $39,95 Cdn 

Super Kit is, quile simply, the best disk file utility there is. No more losing those 
valuable copy-protected originals (like what's happened to me twice in the last 
month). See the News BRK item ahead. 



Transactor Mail Order News 

Our mail-order department is expanding nicely, but our mail-order card isn't. 
Seems we just can't find any more room (o put more text without making if so 
small that you can't read it. So, if you're u,sing the card to order, we suggest you 
pull ]t out and cross-reference with the list below for more details. 

■ Inner Space Anthology SH. 95 

This is our ever popular Complete Commodore Inner Space Anthology. Even 
after a year, we still get inquiries about its contents. Briefly, The Anthology is a 
reference book - it has no "reading ' material (ie. "paragraphs"). In 122 pages, 
there are memory maps for 5 CBM computers, 3 Disk Drives, and maps of 
COMAL; summaries of BASIC commands, Assembler and MLM commands, 
and Wordprocessor and Spreadsheet commands. Machine language codes and 
modes are summarized, as well as entry points to ROM routines. There are 
sections on Music, Graphics, Network and BBS phone numbers. Computer 
Clubs, Hardware, unit-to-unit conversions, plus much more. . about 2.5 
million characters total! 

■ The Toolbox (PAL and POWER) $79,95 

PAL and POWER from Pro-Line are two of the most popular programs for the 
Commodore 64 PAL is an easy-to-use assembler (most assembler listings in 
The Transactor are in PAL format}, and POWRR is a programmer's aid package 
that adds editing features and useful commands to the programming environ- 
ment. They come with two nice manuals, and our price i.s $50 less than 
suggested retail! 

■ The CLINK C64 to fRF.E Interface $49.95 

The GLINK plugs into the cartridge port, but doesn't extend the port for more 
cartridges (for that you'll need a 'motherboard ' of some kind). The other side of 
the GUNK is a IEEE card-edge suitable for a PET-IEEE cable. From there, any 
IEEE device can be accessed including disk drives, modems, printers, etc. The 
GLINK is "Transparent" - that means it won't interfere with programs, except 
thosethaJ rely on the serial routines which it replaces (ie. proi^rams with built- 
in "fast loaders'^ lor the 1541 won't like the presence of the GLINK), It has no 
manual (a^ide from one page of installation instructions) because it alters 
nothing and leaves everything unchanged! An on-board switch allows you to 
select Serial or IEEE. GLINK works with both the C64 and the CI28 in 64 mode 



■ Paperback Writer C64 $39,95 US. S49.95 Cdn 

■ Paperback Planner C64 S39.95 US, S49.95 Cdn 

■ Paperback Filer C64 539.95 US, S49.95 Cdn 

■ Paperback Writer C] 28 J49.95 US, $6995 Cdn 

■ Paperback Planner CI 28 !49 95 US, 169.95 Cdn 

■ Pafjerback Filer CI2S S49.95 US, $69.95 Cdn 

■ Paperback Dictionary $14,95 US, $19.95 Cdn 

In our opinion, the Paperback packages from Digital Solutions are the best you 
can f^et on their own - the fact that they work with each other makes them even 
better. Planner and Filer data can be loaded into the Writer, Writer texl can be 
sent to the Filer, and etcetera The Dictionary spell checker works with both 
versionsof the Writer, 

As mentioned earlier, at! is,sues of The Transactor from Volume 4 Issue 01 
forward are now available on microfiche. Some issue are ONLY available on 
microfiche - these are marked "MP only ' This list also ,show,s the "themes" of 
cachissue. "Theme issues "didn't start until Volumes, Issued. 



Vol 4, 
Vol, 4, 
Vol. 4, 

Vol. 5, 
Vol 5, 
Vol. 5. 
VoL 5. 
Vol.5. 
Vol.5, 
Vol. 6, 
Vol. 6, 
Vof. 6, 
Vol 6, 
Vol. 6, 
Vol.6. 
Vol 7. 



Issue 01 
Issue 02 
Issue 03 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 
[ssue 06 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 
Issue Ofi 
Issue 01 



■ Diski) ■VoL4,lssue04 

■ Disk I) ■Vol.4, Issue 05 

■ Diskl) ■Vol. 4, Issue 06 
Sound and Graphics 
Transition to Machine Language 
Piracy and Protection - MF only 
Business & Education - MF only 
Hardware i^ Peripherals 

Aids & Utilities 
More Aids & Utilities 
Networkmg & Communications 
The Languages 
Implementing The Sciences 
Hardwares Software Interfacing 
Real Life Applications 
ROM /Kernel Routines 



MFonly 
MFonly 
MFonly 



(■ Disk 1} 
Dl^k 1 ) 
Disk 1 ) 
Disk 2) 
Disk 2) 
Disk 2) 
Disk 3) 
Disk 4) 
Disk 5) 
Disk 6] 
Disk 7) 
DiskS) 
Disk 9) 
(■ Disk 10) 
(■Disk 11} 
(■ Disk 12] 



(I 
(I 
(I 
(I 
(I 
(I 
|J 
(I 
(I 
(I 



Notes: The Transactor Disk "I contains alt program from Volume 4, and Disk 
'2 contains all programs from Volume 5, Issues 1-3 Afterwards there is a 

separate disk for each issue. Disk S from The Languages Issue contains COMAL 
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OH. a soft-]oaded, slighTly scaled down version of the COMAL 2.0 carlridi^e. 
And Volume 6, Issue 05 published the directories Transactor Disks 1 to 9. 

The Viewtron Starter Kit 

Since Viewtron is now shipping starter kits lor free (S2.50 US, p&h], we Ve 
di&confinLieddisfribLinon. Seethe ad this issue for more details. 

Transactor Open On Viewtron! 

Remember, any of the above items can be ordered from our Transactor Seci ion 
on Viewtron. Just sign on, enler"lransaclor", and proceed lo [he order seclion. 
We'll respond to conhrm, and usually have yojr order out the same week. See 
Ihe "Viewiron Keywords" article on page 26 of this tssue for more info. 

in the next Transactor we'll have a complete rundown on using the Transactor 
section, which, for the most part, will apply to just about any Viewtron seciion. 
Ifyou get on before that, leaveussomemail- we'll be happy to hear from you^ 

The Transactor Communications Disk 

We're currently working on a "Transactor Communications Disk". We already 
have permission from Viewtron to include their software and hope to include 
many more When finished it could host as many as 15 different modem 
programs and may even require two diskettes. We also plan an "all-in-one" 
manual to go with t[ so you'll never be without a telecommunications program 
for virtually any host computer and protocol. But it's not ready yet so don't send 
any orders More ne>;t issue. 



Industry News 

Workshops In Computer-Assisted Instruction in Music 



The 1541 Revealed 

'^The 15^11 Revealed" is a 4fi'page booklet from Write Proleci Publishing. 
Written by Felix Rivera and Evelio Quiros. the book toniains inforuMtJon and 
diagrams concerning the 1541 disk drive's internals, and practical tips to 
prolong theunit'slife. Sections of the book include. An overview of the 1541, 
how and why problems arise, "The Naked i54r\ Cleaning, lubricating, 
adjusting and aligning. A section on modifications explains how to: change 
device numbers, addafronl-mounted power switch, change the head end -stop 
loa'springy "one, and add a wrile-protect switch. The writing style is informal 
and easy to understand. 

Alabelled general board layout of the 1541 isfound in the centre of the booklet, 
and a "track checker" program and a list of relerences is included at the end 
Price ol the booklet is S5.0Q. For more information, contact; 

Write Protect Publishing Company 
Suite 4EJ35 Charles Sireel 

NewYork, NY t0014 

Used Computer Listing Service 

Due to widespread demand, Comp-Used, which has helped buyers and sellers 
of used computer equipment in the North East for two years, is expandins^ its 
services. 

Comp-Used is a listing service that facilitates the sale and purchase ol used 
computer equipmen:. Anyone with equipment worth over $10U can contact 
the Comp-Used computer to register the product for sale. In the same vein, 
anyone in Ihe market to purchase equipment can call the Comp-Used computer 
lor information. Comp-Used connects the buyer and seller and they finalize the 
sale When a transaction takes place, the seller pays Comp-Used a snidll 
commission; there is no charge to buy. 



The lab for Computer- Assisted Inslrudion In Music at Brooklyn College wilf be 
offering two workshops this summer lor music teachers who are interested in 
using computers as a teaching tool. Each workshop wilt last five days and 
include 15 hours of classroom instruction on the Commodore 64 computers 
and their applications in teaching music. The cost; $200.00/ workshop. The 
datesareJuly7-li,]986andJu]y 14-18. 1986. 

These workshops are offered in affiliation with the Center for Computer Music 
at Brooklyn College, For further information and application, contact: 

Gary S. Karpinski, Director 

[^bfor CAI in Music 

Conservatoiy of Music 

Brooklyn College, Brooklyn, NY 1 1210 

(718)780-5286 

Distressed Commodore Users Hotline 

On January 1st, 1986, David Bradley began operating a brand new Freeware 
service for new Commodore computer users. It is a hotline for users to call 
whenthey are having troublefs) with their new machines. The hotline operates 
Monday 10 Friday from 2:00 PM to 10:00PMan<llhenumbef for users to call is 
{416)483-4776. Users Ihaf want more information about the service can write 
to: 

Distressed Commodore Users Hotline 
H7 Roe Avenue 
Toronto, Ontario. Canada 
MSM 2HS 



To talk with the Comp-Used lelepfione computer, call (203) 762-8677 

Comp-Used 

85 Rivergate Dnve 

Wilson, CT 068^7 

Steve Jobs and Pixar Employees Buy Pixar 

San Raphael, CA - Pixar, the computer graphics division of Lucasfilm Lfd , has 
announced that it has been acquired by SEeven P. Jobs ajid the employees of 
Pixar. Pixar, now an independent company, will design, manufacture and 
market high performance computers and software specifically tailored for state 
of the arf computer graphics and image processing applications. 

The new firm has a product, the Pixar Image Computer, ready for market. 
Developed during the las! three years at Lucasfilm Ltd., the Pixar Image 
Computer is nearly 200 times faster than conventional minicomputers d1 
performing complex graphic and image computations. At these specialized 
tasks, the Pixar Image Computer IS also faster than a 56 million supercomputer 
The Pixar Image Computer will be introduced to ihe commercial and scientific 
markets wjthin [be next 90 days and will sell for approximately $125,000.00. 

Pixar was originally formed in 1979 by Geoi^e Lucas to bring high technology 
to the film industry. Lucasfilm Ltd. will continue to use the Pixar Iniage 
Computer and other technologies to produce computer animation for hims 
through its special effects division, industrial Light & Magic (ILM), and lor home 
entertainment through its Games Group. 

MSD Disk Drive Information Excliange 



Or they can call any line of the Bradley Brothers Bulletin Board System at (4 16) 
487-5833, (■116) 481-8661, (416) -181-9047 or (416) 277-9991. Ail four lines 
operate 24 hours a day, 7 days a week. 



Now (hat Micro System Development, the maker of MSfi Disk Drives, is no 
longer in business, an information exchange is being set up to serve the needs 
of MSD disk drive users. The first project is a database of compatible sottwdre. 
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Users of MSD disk drives are encouraged lo parlicipafe in The exchange. 



D1SK0KGA^[ZER For The C64 



The M5D Inlormation Exchange is a no lees, nol- lor- profit, user service. Those 
who conihbufe ininrmalion lo rhe exchange will be provided the following 
services: 

1 . For a self-addressed stamped envelope, a prinTout of available informahon In 
one selected category. 

2. For a tilank disk with mailer and reliirn postage, a copy ol the Information 
Exchange data disk in Superbase 64 format (data disk only). 

Typical entries in the exchange data base indude- 



You probably bought your computer, at least partially, to help you get orga- 
nized. And you probably slarted with a handful of disks on which you stored all 
your files. But now you have boxes and boxes of disks with direclones that look 
like They were organized by a not particularly bright chimpanzee. You like 
elegance and order, and you wish you could organize your disks, but this seems 
such a gargantuan task that you keep putting it off. The order of the files on a 
Commodore disk directory seems to be engraved in stone. {The same stone 
holds the header.) The only way to reorganize the directory is through 
laborious file copying lo a fresh disk, right? WrongI We have good news, 
DISKORGANJZERIortheC-64. 



Word Processor, PaperCltp 64, Batteries Included, fi4C Edition 
SD-2: Fully compatible serial or parallel (Quicksilver interface) 

Spreadsheet, Multiplan 64, Hesware, v, 1,06 
SD-2;Partiallycompatibie. Data files may no! be saved. 

Backup, MSD Shure Copy, MegasotI 

Si>2 Serial compatible. Parallel Incompatible with Quicksilver 



With this ultimate disk utility for the C'64 you can quickly and easily sorl and 
rearrange the disk directory ol any unprotected disk to meet your own 
speeilications, and the new directory is aclualJy written back onto the disk! 
Using a convenient screen editor you can also change the header scratch files, 
copy files of any size to another disk, rename files, add fences' to mark off 
sections of the disk for easy reading and independent soning, 'scratch- protect' 
any file, position individual files anywhere in the directory, and, olcourse, print 
out copies ol your revised directories. 



Entertainment, Flight Simulator II, Sub Logic 
SD-2 Incompatible 

The information exchange will also maintain files on the availability of 
technical information on MSD disk drives including parts, service, service or 
maintenance manuals, wiring diagrams, memoiy maps, etc. as provided by 
users. 

Software News 

Introducing Super Kit/ 1 54 1 



You may have acopier utility or utility to rename the header or you may use the 
wedge for common disk commands. But you don't have a sin^e program that 
will take care of ail your disk housekeeping (even housekeeping you didn't 
think possible) quickly and easily. Sut you will, if you get DI5K0RGANIZER 
and gel organized. DISKORGANIZER is available lor S29.95 Irom: 

The CA.S.S. Company 

970 Copeland 

North Bay, Ontario, Canada 

(705}474-%02 



Prism Software is proud lo introduce Super Kil/1541 for the Commodore 64. 
Super Kit is the most lull-featured 1 54 1 utility package to be found today. Jus! 
look af the leatures ollered 

Single/Dual Normal Copier. Copies a disk with no errors m 32.68 seconds. 
Dual version has graphics and music. 

Single/Dual Nibble Copier Mbble copies a disk in 34.92 seconds. Dual version 
has graphjcs and music. 

Single/Dual File Copier: 6 times norma! DOS speed. Includes multi-copy, 
multi-scralch, view-edit BAM, and new Super DOS Mode. 



Amiga Spreadsheet, Telecommunication » and BBS 

Micro-Systems Software Inc. has released three new software lools for the 
Amiga. The first isaspreadsheetcalled Analyse'. Similar in concept to Lotus 1- 
2-3, Ihe $99% program takes maximum advantage of Amiga's capabilities 
(pull down menus, mouse, workbench) and can produce professional sized 
spreadsheets {256 columns X 8,156 rows). 

The second package. Online!, Is a full-featured telecommunications system for 
Che Amiga that retails for S69 95. The third package, BBS-PC, is a versatile 
electronic bulletin board system that transforms any Amiga into an online 
information network. 



Track and Sector Editor. Full editing of l&s in hex, dec, ascii, bin Includes 
monitor/disassembler with printoul commands. 

OCR F.ditor Yes disk fans, a full blown sector by secEor or track by [rack OCR 
editor. Includes Bit Density Scan. 

Super DOS 1: Fast boot for Super DOS. 1 50 blocks in ] T2 seconds. 

Super DOS II: Screen on and still loads ISO blocks in 1 4,87 seconds. 

Super Nibbler: Quite frankly, il it can be copied on a 1541, this will do it! 
Including Abacus, Timeworks, Accolayde, Epyx. Acti-vision, Electronic Arts, 



The 599.95 program easily interfaces to a hard disk or keeps up with a 2400 bps 
modem. In addition, BBS-PC works in the "background", so the Amiga can 
answer Ihe phone and lake messages while users are working on other 
projects- 

All three packages are being distributed by Softeam, National Software Distribu- 
tors and Computer Software Services in the U S, and in Canada by Phase 4 
Distributors. For additional information contact; 

Brown-Wagh Publishing 

100 Verona Court 

Los Gatos, California 95030 (408) 395-3838 



The price, S29.95 plus $3.00 shipping and handling. 



The Sourcerer 6500 Series DisaasembLer 



Prtsm Software 

401 Uke Air Drive, Suite D 

Waco, Texas 76710 

Orders (817) 757-4031 {or use order card at center) 

Tech (817)751-0200 



The Sourcerer is a multi-pass disassembler which converts 6500 series ma- 
chine language (object code] into Assembly Language (source code). Il operales 
disk-to-disk, disk-to-screen, or disk-Io-printer. The commented Assembly Lan- 
guage which is produced can be immediately re-assembled with ihe Commo- 
dore assembler, or loaded for editmg with the Commodore editor. Any specified 
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range of code within a program can be disassembled. Long programs aulomali- 
cally produce linked disk files for easy editing. All addresses referenced in Ihe 
code are convened to labels, in several sorted calagories. Tfie Sourcerer Ls 
written in 100% machine language for fast operationn and will disassemble a 
20k program with severahhousand address iabels in less than 13 minutes. The 
time required for the final output of source code depends on the speed of the 
output device (disk, screen, or printer). 

The Sourcerer is only S29.95 ppd. on a 1541 disk complete with operating 
instructions. Order from: 

Chessoft Ltd. 

723 Barton Street 

MT, Vernon, IL B286^ 

Help Master For The Commodore 64 

Help Master 64 is a software/book package that will aid Basic programmers. 
Help Master 6-1 provides instant, on-line help screens on each and every Basic 
command used by the Commodore 64 computer. 

Once loaded. Help Masier 64 remains hidden in memory until you need it. It 
takes up absolutely none of the Basic f^M, is completely compatible with the 
DOS wedge, and has no effect on your ability to write, edit, load, save or run 
any Basic program. 

When you need help, typing the quote mark plus the name of the command 
will instantly produce a half-screen oveday showing the Commodore abbrevia- 
tion for the command, the proper syntax, a description o( the command and 
reference page numbers in various manuals which will provide more informa- 
tion than is available on-screen. This half-screen format will allow you to view 
both your actual program line and the Help Master example at the same time so 
you can see what the differences are. 

After viewing Ihe help screen, you may restore the information that was on the 
top half of the screen, or you can correct your program line while the help 
screen ts still being displayed. 

Help Master 64 comes with the 'Handbook Of Basic (or the Commodore 64', an 
excellent 368 page reference manual on Commodore Basic by Frederick E. 
Moshei and David !. Schneider, published by Bradey Communications, Inc. 
The package has a retail price of $29.95. For more informat'on contact: 



Master Software 
6 Hillery Court 
Randallstown, MD 21133 

Hardware News 



(301)922-2962 



RESWITCH from Compu»av€ 

Reswitch is a reset switch /power-on indicator for the Commodore 6^ which 
replaces the existing power-on LED. Installation requires no drilling or cutting, 
as the unit pops into the same hole as the existing LED. The Reswitch is a 
transparent pushbutton containing an LED and acts exactly like the original 
LED except that pushing down on it causes Ihe 64 to reset. The package comes 
with delailed installation instructions and everything needed to hook up. Price 
is $10.00, Contact: 

Comp U Save 

115 Essex St. Suite '146 
NewYork, NY 10002 

Uninterruptible Power Supply 

An on-line, sine wave Uninterruplible Power Supply is being introduced by 
Electronic Specialists. Capable of supplymg up to 20 minutes power during 



extended power outages, the on-line unit operates without disruptive switching 
Iransients. Automatic internal baltety recharge is incorporated. 

Wide band EMI/RFI filtering and High-Speed, High-Current Spike Suppression 
provide extended protection. Added protection is provided by an integral over- 
load/short-circuit proof configuration. 

A Iront panel TEST switch permits convenient power removal lo check tront 
panel monitors and complete system operation. 

Line phase lock, automatic Blackout lllummalion, Battery-Saver automatic 
shut-down option and external battery option are featured. Available in 250 
and 500 watts. For more information, contact: 

Electronic Specialists Inc. 
171 South Main Street 
Natick, Massachusetts 
01760 1-800-225-4876 

SOColumn Mono Cable For The C-128 

This is the cable for an 80 column monochrome display as described in many 
Commodore specific magazme. It eliminates the need for an RGB monitor and 
allows the use of any composite color or monochrome monitor. Excellent for 
data base and word processing applications. (See next item for address) 

40/80 Column SwUch Cable For The C-128 

A flip of a switch on Ehe connector is all that's needed to change from -10 to 80 
column display and back again. Plus a simple keystroke (ESC X)Jn 40 column 
mode all 16 colors are available on your color monitor. 

It's small and easy to Install, with no bulky switches, boxes or exposed 
components. 

The 80 Column Mono Cable retails for $9.95. The 40/80 Column Switchable 
cable retails for S23.95. For more information contact: 

Innovative Computer Accessories 

1 249 Downing Street, PO Box 789 

Imperial Beach, CA 92032-0837 (619)224-1177 
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COMMODORE ASSOCIATION SOUTH/EAST 

presents 

THE 

COMMODORE 

SHOW 

at the 

Opryland Hotel 

Nashville, Tennessee 
April 26th & 27th, 9:00 a-m. to 5:00 pm. 



NATIONAL COMMODORE SPEAKERS! 

VENDORS AND DISPLAYS! 

SHOW SPECIALS AND DOOR PRIZES! 

SEE INNOVATIONS AVAILABLE FOR THE COMMODORE MARKET! 

THE ONLV COMMODORE CONFERENCE IN THE SOUTH EAST! 

USER GROUP ORIENTED! 



2-DAV REGISTRATIOIS FEE: SIO.OO (S7.50 before April 15) 

Tickets are available ai all affiliated clubs, 

or for more information, contacts 

CA.S.E. • PG. BOX 110386 ■ NASHVILLE, TN 37222 

(615) 834-5679 • (615) 834-2073 • (205) fi54-3496 
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PAYS 
$40 



per page for articled 

We*re also looking for 

prof e««io nail y 

drawn cartoons! 

Send all material to: 

The Editor 

The Transactor 

500 Sleeles Avenue 

Milton, Ontario 

LST3P7 
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Issue 


Volume 6 Editorial Schedule 

' Therae Copy Due Printed 


Release Date 


1 


More Aids & Utilities 


Febl 


Mar 22 


April! /85 


2 


Communications &. Networldng 


Aprl 


May 24 


June 1 


3 


Languages 


Jun 1 


Jul 26 


August 1 


4 


Implementing The Sclenfres 


Augl 


Sep 20 


October 1 


' 5 


Hardware & Software Interfacing 


Octl 


Nov 22 


December 1 


6 


Real Life Applications 


Dec 1 


Jan 24 


February I/S6 


1 


Volume 7 Editorial Schedule 

ROM Routines / Kernel Routines Feb 1 Mar 2 1 


1 

April 1 


2 


Games From The Inside Out 


Aprl 


May 23 


June 1 


3 


Programming The Chips 


Jun 1 


Jul 25 


August 1 


4 


Gadgets and Gizmos 


Augl 


Sep 26 


Octot>er 1 


5 


Simulations and McMJelling 


Oct 1 


Nov 21 


December 1 


6 


Programming Techniques 


Decl 


Jan 23 


February 1/67 


Advertisers and Authors should have material submitted no 

later than the *Copy Due' dale to be included 

with the respective issue. 
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hile driving deep into the Black Forest of Germany, 

our slow and unreliable Volkswagen started sputtering and puttering and then to our dismay, just quit 
running. After hours of unrelentlous tinkering, our poor little mobile was running, slowly, but running. 
And we wanted to gel out of that dank and dark forest quickly. Befuddled and confused, we were ecstatic 
to see a strange little Gnome emerge from behind a tree. This creature, who called himself Hacker, 
used his infinite wisdom and wizardry to fix our Volkswagen and gel us speedily on our way. 
Well, we were so impressed with Hacker Gnome^s wizardry, that we convinced him to reveal his 
secrets for speed and reliability. And we are passing these secrets along to you so that you can 
write the very best Basic Programs. 



( 



INTRODUCING -GNOME SPEED 

(A Basic 7.0 Compiler for your Commodore 

Gnome Speed allows you to 
transform virtually any Basic 7.0 
Program into a compiled version that 
is as sophisticated and fast as if it 
were written in machine code. 
Simplycompiling your program with 

Gnome Speed not only gives you 
super-fast execution speed, but also 
informs you of all your program 

coding errors, so that your compiled 
program is error-free. And for those 
of you who want to sell your 
program, all your efforts and 
programming secrets will remain 
yours, since only the compiled 
version — not your Basic source 
code need be included on the disk. 
The price? Only $59,95 {U.S.) 

NODONGLES!! 

NO COPY-PROTECTION!!! 




U.S.A. MAIL ORDERS: 

SM Software, Inc. 
1-215-682-4920 



CANADIAN MAIL ORDERS: 

The Transactor 
1-416-878-8438 
(see order card) 



DEALER INQUIRIES; 

Micro-Pace, Inc, 
1-217-356-1884 



Au 



SM SOFTWARE, INC. 

P.O. Box 27 

Mertztown, PA. 19539-0027 

1-215-682-4920 
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SINGLE/DUAL NORMAL COPIER 



Copies a disk with no errors in 32.68 seconds, 
dual version has graphics & music. 

StNGLE/DUAL NIBBLE COPIER 

Nibble Copies a disk in 34,92 seconds. Dual 
version has graphics & music. 

SiNGLE/DUAL FILE COPIER 

7 limes normal DOS speed Includes mulli-copy, 
multi-scratch, view/edit BAM, & NEW SUPER 
DOS MODE In Super DOS Mode, it transfers 
7-15 limes normal speed, copies 150 blocks in 23 
seconds- 

TRACK & SECTOR EDITOR 

Full editing of tfts in hex, dec, ascii, bin. Includes 
moniror^disassembJer with printout commands. 



GCfl EDITOR 

Yes disk fans, a full blown sector by sector or 
track by track GCR Editor Includes TRUE Bit 
Density /Track Scan. 

3 SUPER DOS FAST LOADERS 

Over 15 limes normal DOS speed. Super DOS 
Files are still Commodore DOS compatible. 
Imagine loading 150 blocks in 10 seconds, 

SUPER NIBBLER/ 
SUPER DISK SURGEON 

Quite frankly, these will provide you the user with 
the backup you need! Even copies itself. 
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$29.95 U.S. 

PLUS $3.00 SHIPPING/HANDLING CHARGE - $5-00 C-O.D. CHARGE 

1 
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SOFTWARE 



i- 



SUPER KIT/1541 is for archival 
use oniy! We do not condone 
nor encourage piracy of any kind. 



/ 
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401 LAKE AIR DR„ SUITE D • WACO, TEXAS 76710 
ORDERS (817) 757-4031 • TECH (817) 751-0200 

MASTERCARD & VISA ACCEPTED 



I 





See center page for 
mail order card. 
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Type in a lot of TVansactor programs? 

Does the above time and appearance of the sky look familiar? 

With The TVansactor Disk, any program is just a LOAD away! 



Only $7.95 Per Issue 
6 Disk Subscription (one year) 

Just $45.00 
(see order form at center fold) 



^ 




"There's only one thing I like better than ice fishing. . . 





.And that's sitting at home 

with my eompnter and a Transactor Magazine!" 
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USA 



Please send me 6 consecutive Transoctars starting with the nexl issue! 

(D Please send microliche instead of magazines) 
DU.S.A. $ 15.US. DFoTeign $2l.us, DAir Mail (Overseas only) $40.us. 

n Renewal {please include your Subscription Number from mailing label) 

D New Subscription New address? D 



Name & Address. 



(plea.se include your pt*stal/zjp code): 



SAVE 

29% OFF 

Cover Price 



D Transactor Microfiche Set (VoM + Vol5 + Voi6) :i9.95' 

D Inner Space Anthology $14,95* 

D The Toolbox (PAL and POWRR) $79,95' 

n The TransBASIC Disk $9.95' 

n The G-Link Interface $49.95' 



n JB^s 1986 Diary $5.95* (plus50< \^&h) 
n Paperback Writer C64 $39.95* 
n Paperback Planner C64 $39,95* 
D Paperback Filer C64 $39.95' 
D Paperback Dictionary $14.95' 



D Paperback Writer C128 $49.95' 
n Paperback Planner C128 $49.95* 
D Paperback Filer C128 $49.95' 
D Super Kit 1541 $29.95' 
D SM BASIC 7.0 Compiler $59.95* 



Note: See News BRK page 77 for details on above items 



The Transactor Disk ( 1 54 1 /4040/MSD formal) 
D Please send 6 conseculive disks to correspond 
with my magazine subscription: $45.00.' 

Please send the folTowlngdisksat $7,95* each. 

n Disk 1 D Disk 5 D Disk 9 

DDisk 2 QDisk 6 D Disk 10 

DDisk 3 DDisk 7 D Disk 11 

DDisk 4 DDisk 8 QDisk 12 



Transactor Back Issues: $4>50* each. 



n Vol, 4, Issue 01 

D Vol.4Jssue02 

D Vol. 4. Issue 03 

D Vol. 4, Issue 04 'MF only 

D Vol. 4, Issue 05 -MF only 

D Vol. 4, Issue 06 -MF only 

D Vol 5, Issue 01 



DVol.5Jssue02 

D Vol.5Jssue03-MFonly 

D Vol.5Jssue04-MFonly 

DVol.5Jssue05 

DVoL5Jssue06 

DVoiejssueOl 

DVoL6Jssue02 



D Vol, 6, Issue 03 
D Vol. 6, Issue 04 
aVol.6Jssue05 
D VoL 6. Issue 06 
D Vol. 7. Issue 01 



* Prices are in U.S. Dollars 



NOTE: Prepayment required. Purchase orders will be accepted ONLY if accompanied by payment. 



n Cheque/MO, enclosed 
D Visa D MasterCard 



Cheque", 
Accl. ' 



Dated. 



/ 



/ 



Amount 



Expires 



I use the following Commodore equipmenl: 
DVIC 20 DC 64 

DiskUnil: DSFDIOOI 



nci28 

a 1 540/41 



DAmi^a 
□ 4040 



aB128 
□ 8050 



□8032/96 
□8250 



□ IG/ +4 

□ 1571 



□ Please send dealer inlormalion lor The Transactor. 



04/86 
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Canada 



Name & Address 

(please include your postal/zip code): 



Please send me 6 consecutive Tronsoctors starling with the next issue! 

(D Please send microfiche instead ol magazines) 
DCanadaSlS. DForeign $2l.U5. DAir Mail (Overseas only) S40.US. 

D Renewal (please include your Subscription Number from mailing label) 

Q New Subscription New address? □ 

SAVE 

29 % OFF 

Cover Price 



n Transactor Microfiche Set (Voi4 + Vol5 + Vol6) 39.95' 

□ Inner Space Anthology 1 1 4.95* 

D The Toolbox (PAL arid POW^IR) $79.95' 

D The TransBASIC Disk 19,95 * 

n The G-Link Interface $49.95' 



D JB's 1986 Diary S5.95' (plus 50* pAti) 
D Paperback Writer C64 $49.95* 
D Paperback Planner C64 $49.95* 
D Paperback Filer C64 $49.95* 
n Paperback Dictionary $19.95' 



D Paperback Writer C128 $69.95* 
D Paperback Planner C128 $69.95* 
D Paperback Filer C128 $69.95* 
DSuperKil 1541 $39.95' 
n SM BASIC 7.0 Compiler $69.95* 



Note: See News BRK page 77 for details on above items 



The Transactor Disk ( 1 54 1 /4040/MSD Jormat) 
n Please send 6 conseculive disks to correspond 
with my magazine subscription: $45.00,' 

Please send the following disks at S7,95 ' each. 

n Disk 1 n Disk 5 D Disk 9 

n Disk 2 n Disk 6 Q Disk 10 

DDisk 3 DDisk 7 D Disk M 

D Disk 4 DDisk 8 DDisk 12 



Transactor Back Issues: $4.50* each. 



D Vol. 4, Issue 01 

D Vol, 4, Issue 02 

D Vol 4, Issue 0:i 

D Vol, 4Jssiie04-MFonly 

n Vol.4, Issue 05- MFonly 

D VoL4, Issue 06 -MFonly 

D Vol. 5, Issue 01 



D Vol, 5, Issue 02 

D Vol 5Jssue 03 -MFonly 

D Vol.5. Issue 04 -MFonly 

D Vol.5, Issue 05 

D Vol.5, Issue 06 

D Vol.6, Issue 01 

D Vol. 6, Issue 02 



D Vol. 6, Issue 03 

D Vol. 6, Issue 04 
D Vol. 6, Issue 05 
D Vol. 6, Issue 06 
D Vol. 7, Issued 



' Onl. residents pleano add 7% PST, except on subscrip lions, Tlie Anthology, and The Diary 



NOTE: Prepayment required- Purchase orders will be accepted ONLY if accompanied by payment- 



D Clieque/MO. enclosed 
D Visa n MasterCard 



Cheque*. 
Acd. ' 



Daled. 



./. 



./. 



Amount 



Expires 



I use the lullowini^ Cointuodore equipmenl: 



nvic 20 

Disk Unit: 



nC64 
DSFDIOOI 



nci28 

a 1540/41 



DAmiga 
04040 



nBi2a 

D8050 



D8032/96 
08250 



016/ +4 
01571 



O Please send dealer mtornialion lur The Traiisatlor. 



04/86 



BUSINESS REPLY MAIL 

FIRST CLASS PERMIT NO 390 BUFFALO NY 



POSTAGE WILL 0£ PAID BY ADDRE&StE 

Iransactor 

277 Linwood Avenue 
Buffalo. NY, 14209-9990 



NO POSTAGE 

NECESSARY 

rF MAILED 

IN THE 

UNITED STATES 
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Business Reply Mail 

No Postage Stamp Necessary 
It mailed in Canada 



Postage will be paid by: 



Iransactor 

500 Steeles Avenue 
Milton, Ontario, Canada 
L9T 9Z9 




